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ABSTRACT 


A numerical finite difference field model was developed to simulate full scale fires 
in closed vessels. In particular the model was developed to simulate tests in the Fire | 
Test Facility at the Naval Research Laboratory in Washington, D.C. Asa first step a 
rectangular 3-dimensional geometry was used to approximate the actual geometry in 
the computer model. Then a model with the actual spherical/cylindrical geometry was 
developed. The computer code produced pressure, temperature, density, and velocity 
fields from given heat input data for the fires. The most important feature of the 
‘model was that it accounts for the pressure buildup due to the fire in a pressure vessel 
such as Fire 1 or anv other closed vessel such as a submarine. Other features include 
surface radiation exchange and heat losses through the wall. Model results were 
validated with experimental data from Fire 1. The envisioned use of the model is in 


simulating fires in Fire | and eventually in submarines. 
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1. INTRODUCTION 


Me iIHESIGNIFICANCE OF FIRE PROBLEMS IN THE NAVY 

For many years fires have been a significant problem in the Navy. Many lives 
have been lost and numerous injuries have resulted from these fires. The necessary 
repairs to the ships adversely affect naval readiness and also cost millions of dollars. 
Table | (Ref. 1: p.65] shows the magnitude of the problem by listing average vearlv 


losses and citing several specific fires. 


TABLE 1 


Pen SOME CASUAIMES AND LOST OPERATING DAYS FROM 
Fines, d7>- 1930 


Calendar —_ — Operating 
Year Injuries Fatalities Days Lost 
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The computer model developed in this thesis provides a tool to simulate fires in closed 
compartments such as those found in submarines. Hopefully this model and its 


successors can be used to reduce the damage caused by shipboard fires. 


B. NAVY FIRE RESEARCH 

In an effort to reduce the loss of life and damage caused by fires the Navv has 
undertaken for many vears programis to reduce the likelyhood of fires and to more 
effectively combat fires once they start. Mlany facilities are used to evaluate fire 
damage from various scenarios. These scenarios generally involve the evaluation of 
new fire extinguishing equipment or fire resistant materials such as prospective hull 
insulation. The Fire I Test Facility at the Naval Research Laboratory is one such 
facility which is specifically designed to simulate fires aboard a submarine where the 
pressure buildup due to the fire is not vented. The computer code developed here is 
specifically designed to simulate fires in the Fire | Test Facility. 

Other related Naval and Coast Guard research involves the accurate evauation of 
the fire hazard aboard ships in the fleet. The most spectacular and expensive tests of 
this variety are full scale instrumented fire tests aboard recently decommussioned ships. 
Projects are currently in the planning stages to conduct such tests aboard a submarine 
and a surface ship. The computer model presented here is a first step toward modeling 


the complex phenomena of a fire in these full scale conditions. 


C. PURPOSE AND FEATURES OF THE NUMERICAL MODEL 

One might ask, “What is the usefulness of a computer model for Fire 1?” Several 
answers immediately come to mind. First, the actual test runs in the faciliiyilaee 
expensive. They are on the order of $75,000 for @n involved test) ObBVicuSiiaaa 
computer model that could eliminate the need for even a few tests would be useful. 
Test cost and physical limitations of the facility also limit the number of actual fire 
scenarios that can be tested. The computer model could be used to evaluate many 
scenarios that would not normally be looked at. In this wav the computer code could 
be used to screen scenarios. Then actual tests would be run on those situations that 
show up as the most dangerous on the computer. Also, the program nught show areas 
inside the test vessel where additional instrumentation is required. As a simple 
example, Fire | now has available portable thermocouple racks. Test cases on the 
computer would indicate the most favorable placement of these portable racks to 
record the data desired. Finally, since the geometry simulated by the coniputer is much 
more easily changed than the geometry of the physical model. once the computer code 
is validated by Fire I 1t could be used to simulate other fires in facilities or ships which 


have much different dimensions than Fire I. 


The actual numerical model used here to simulate the fire is referred to as a field 
model. In a field model the space is divided up into a large number of small cells and 
all the pertinent values for temperature, pressure, density, species concentration, and 
velocities are calculated. Interaction effects such as radiation, and turbulence, and 
others are easily integrated in a field model but the overall results are very dependent 
on how accurate the particular radiation or turbulence model is. Thus improvement of 
the field model accuracy depends on research in many separate areas. Field models in 
general require a large amount of computer resources because of the large number of 
cells required for satisfactorily accurate results. As a consequence of this complexitv 
and the limitations of present computers, real time simulations with a field model are 
not feasible. 

The three-dimensional model developed here is a direct extension of the two- 
dimensional model used in the study of aircraft fires at the University of Notre Dame 
(Refs. 2,3: pp. 107-118, pp.177-184]. There are a number of other Field models 
available. In [Ref. 4: pp. 55-77] a three-dimensional model of buovant convection and 
aerosol dynamics using the time dependent inviscid Boussinesq equations is presented. 
A simple combustion model is included in the field model described in [Ref. 5: pp. 
107-111] and in [Ref. 6: pp. 115-124] another three dimensional model of a fire in 
enclosures is developed. | 

This Fire I numerical model has a number of important features. The model is 
three dimensional. Primarily as a consequence, primitive variables have been used. 
The choice of primitive variables rather than the stream function, vorticity, and 
velocity potential approach also makes the application of boundary conditions much 
easier. The major problem with using primitive variables is the necessity and difficulty 
of determining the local pressure field. This procedure will be described in detail in this 
report. Another feature critical to this model is a global pressure correction that allows 
for the pressure buildup in the closed svstem that is being simulated. A radiation 
model is also included but it only deals with surface to surface radiation effects. Gas 
radiation effects are not accounted for. A simple conduction model is provided to 
simulate the heat loss through the vessel walls. The overall numerical scheme employs 


the finite difference niethod. 


ve 


Do THE FIRE PY eot Peer rin: 

Since the Fire I test facilitv is the specific subject of this computer model and 
since the experimental data from this facility is the basis of the mode} validation. a 
short description of Fire I is provided here. A detailed report about the facility 1s 
provided by Alexander, et.al. in {Ref 7]. and the facts presented here are excerpts from 
that reference. Figure 1.1 [Ref. 7: p. 2] provides a blueprint drawing showing the 
overall dimensions of Fire !. The tank shell consists of a cylindrical central body 
27.4 ft long with hemispherical endcaps. The radius of the endcaps and the cyclinder-is 
9.6 ft giving a total volume of 11640 ft? or 324 m°. The test vessel is made of ASTM 
285 Grade C steel 3/8 in thick. The design pressure is 89.7 psia at 450°F with a 
hydrostatic test pressure of 127.2 psia. Rupture discs are installed tO" "prema 
pressurization above 89.7 psia. [Ref 7: p44] 

Within the basic shell modifications have been made to provide instrumentation 
for fire testing and to simulate the shipboard environment. Figure 1.2 [Ref. 7: p. 32] 
provides a side view drawing which shows the tocation of the thermocouples and 
radiometers. A total of 20 thermocouples are arranged on two arrays at the north and 
south ends of the tank. The figure shows their exact locations. The thermocouples 
consist of chrome-alume}! wire 0.2 mm in diameter with ceramic insulation enclosed in 
Type 304 stainless steel jackets 1 mm in diameter. These thermocouples are provided 
With steel radiation shields. In addition to the 20 permanent thermocouples, in many 
tests additional temporary thermocouples are placed in locations of interest. Both wide 
angle (135°) and narrow angle (75°) radiometers are provided inside the tank near the 
permanent thermocouple arrays. In addition one wide angle radiometer array is 
installed near the center of the tank on the lower deck. Pressure readings are taken 
from two transducers, one taps into the north end of the tank and the other into the 
south end. The test chamber is also equipped to measure smoke obscuration levels, 
gas composition, and the progress of the hre with video cameras. Figure 1.2 shows 
several features which are similar to a submarine interior. First are the frame bays 
which can provide a ducting or chimney effect for fires located near them. Second are 
the decks, one about 35 ft above the low point of the tank and one at the tank mud- 
plane. These decks may be either grates or solid and may be fully or partially removed 
as desired in a particular test. A system of interior fans is provided so that the effects 
of forced circulation on a fire in the closed vessel.mav also be evaluated. Finally, the 


facilty is equiped with a nitrogen pressurization system to extinguish the fire. It raises 
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the pressure to 2 atm in 10sec and extinguishes the fire by lowering the partial 


pressure of the oxygen to less than 10.5%. [Ref. 7: pp. 14-33] 
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The balance of this thesis describes the details of the numerical model and its 
validation. In ChapterI] the governing equations are described and non- 
dimensionalized. Then the specific finite difference equations for the rectangular 
geometry are derived. This is followed by an explanation of the pressure correction. 
radiation model, conduction model, and the application of boundary conditions. 
Chapter II ends with an outline of the solution procedure. [n Chapter [II the results 
of the validation of the model with the experimental data are presented. The 
conclusions and recommendations for future work are given in Chapter IV. The 
derivations for the finite difference equations for the actual cylindrical spherical 
geometry are presented in the Appendices. Future work will contain the validation 


results. The other appendices contain the code listings and several miscellaneous items. 
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II. FORMULATION AND DESCRIPTION OF THE NUMERICAL MODEER 


A. GOVERNING EQUATIONS 

In this section the governing differential equations for the computer model are 
presented and then simplified by deleting terms not significant in this particular 
application. Patankar in [Ref. 8: pp. 11-17] provides the general form of the equations. 
while White in [Ref. 9: pp. 671-674] provides the equations for the rectangular 
geometry. The genera! form of the equations, their simplication, and the development 
of the finite difference equations follows the form of Doria in reference [Ref. 10: pp. 
| -44]. 

In the development of the equations. an assumption of no chenucal reactions 1s 
made. The fire is modeled bv volumetric heat input only and the chemical composition 
changes due to combustion reactions are ignored. In addition, laminar transport 
properties are taken to be constant, while density is allowed to vary in accordance with 
the ideal gas law. The justification is that the flow and temperature fields are 
dominated by turbulent transport. 

1. Equations in General Form 

In general form not specific to anv geometry, the governing differential 
equations are: 


Continuity Equation: 


0 
— + V° (orm) = (eqn Zaae 


Energy Equation: 
GC _ DE 
=o ( Ph) + Ve(pvh) = Ve(kVT) + wn + Op + Sy (eqn 2.2) 


Momentum Equations: 





G 
ae) + V SQPIZY 7)) GG Sees +B (eqn 273m 
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<( Pv) + Ve(pvv5) = Ve(plv5) - - + By, (eqn 2.4) 

CG OP 

peg PV 3) pei memenyo) — Ve(hVV5) - 3x, + a (eqn 2.4) 
Equations of State: 

F-pRT (eqn 2.6) 

h= Cy apy) | (eqn 2.7) 


The energy equation above assumes the use of Fourier’s Law while the momentum 
equations assume the use of Stokes’ Hypothesis. 

immiccnereyscquanman Pt 1s the pressure work term, ®4 1s the dissipation, 
and Sj, is the heat source term. The low speed flows considered in this model make the 
pressure work and dissipation terms small. As a result they are assumed negligible 
from this point and elinunated from the equations. Since the effects of gas radiation 
are not treated here, the heat source term is non-zero onlv in the region of the fire. In 
the momentum equations, the subscripts 1. 2, and 3 indicate the three orthogonal 
directions of the particular coordinate system selected. B represents a body force. The 
energy and momentum equations both contain terms of the form V(I'Vq@) where T is 
the diffusion coefhicient and @ is a dependent variable. In the laminar case. the values 
of I are properties of the fluid. However in this numerical model where the turbulent 
Case must be considered, the value of I is replaced by a L opp or an effective value of 
the diffusion property which increases the original laminar value of T bv a turbulent 
contribution [Ref. 10: p. 5}. Thus the conductivity k becomes Kopp and wt beconies 
Hope Tp, in the equation for the enthalpy is a reference temperature. 

2. Governing Equations in Cartesian Coordinates 
From the general forms of the differential equations just presented the 


equations for the Cartesian or rectangular geometry may be developed. In the 


le 


rectangular geometry the three coordinate directions are x, y, and z and the 


corresponding velocities are u, v, and w. 
Now that the coordinate svstem has been selected several items may be 
specified. The divergence and gradient in rectangular coordinates are given in 


Equations 2.8 and 2.9, respectively. 


du ov f Ow : 2.8) 
ey=a—tm—t— eqn 2. 
~ Ox Oy OZ, i 


OTA OTA OTA 
vr = —i + —7 2) eee | (eqn 2.9) 
OX OV OZ 





A A 
where i, j, and k are unit vectors in the x, y, and z directions. In the momentum 
equation the only body force B of significance is gravity. It acts in the negative z 


direction. As a result: 

Dea B., =O ea (eqn 2.10) 
For convenience the static equilibrium equation 

QO = “OPE g OZ - Pegs (eqneznae 
is subtracted from the z-momentum equation. In equation 2.11, Peg is the equilibrium 
pressure and PEq is the equilibrium density. The resulting modified z-momentum 
equation shows the effects of the buoyancy more clearly. To further simplifv the 


equations the following definitions for the heat flux q and the shear stresses T are 
substituted: 


dx = -Kepp CT 0x (eqn 2.12) 


dy = -Kegp OT, oy (eqn 2.13) 


q> = Sara OT) dz 


ZV 


Ze 


2 Horr (du; 0x) 


Hape (Ov/Ox + du/dy) 


Wap (Ow dx + du, dz) 


XV 


2 Hepp (Bvidy) 


Heer (Ow/dy + Ov/dz) 


AZ 


VZ 


2 Jtepe (Ow/ dz) 


(eqn 2.14) 


(eminnalio) 


(eqn 2.16) 


(eqn 2.17) 


(eqn 2.18) 


(Scie ez} 


(com 2.20) 


(eqn 2.21) 


eqn 2.22) 


(eqn 2.23) 


Incorporating these constitutive equations governing equations in rectangular 
coordinates become: 


Continuity Equation: 


op 


o G é 
—+— = — = 0 2.24 
am ee By Pv? 7 ee (eqn ) 


Energy Equation: 


é é é 
—(ph) + —(puh) + —(pvh) + —(penye= 
aut P )) ep ae ez we ) mes ) 








“ 3 (eqn 2. Zam 
ody es Ody - (dz +S 
OX dy OZ A 
Momentum Equations: 
G G > G G 
sa( PU) + Se CPU) CO ee 0 ae 
Oke OX oy Oz 
(eqn 2.26) 
ee , xy, Se | 
OX Cy OZ OX 
G ; G A GO . an G \ = 
ae PY) * Gf Pe) ee 
a a a as (eqn 2.27 
COVE. 4: 2 ee ee 
Ox Oy OZ oy 
A G G . G > 
a an oo —— -= 
aaa Fe Pw) ae at Pw ) 
Q a F ap - FP (eqn. 
OR of. ay + Baa _ OE See) - ( p ~ Pr 
OX Gy OZ CZ q)g 


3. Comment on the Equations 
These equations developed for rectangular coordinates are the basis of the 


numerical model. They are parabolic in time and elliptic in space. The initial 
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conditions for the dependent variables must be supplied for every point in the 

calculation domain and boundary conditions for the dependent variables must be 

supplied for every time instant. When these conditions are met a solution is possible. 
Similar but more complex equations for spherical and cylindrical coordinate 


systems are presented in Appendix A. 


B. NON-DIMENSIONAL EQUATIONS 
1. The Non-Dimensional Governing Differential Equations 
For convenience in developing the numerical model the governing equations 
may be placed in non-dimensional form. The following non-dimensional quantities are 
used to form: the dimensionless equations. These individual equations for the 
_dimensionless quantities are solved for the dimensional quantity and substituted in the 


dimensional equations from the previous section (Equations 2.24 to 2.28). 


xX = x/H a 7 = Rie (eqn 2.29) 
i= u/Vp v= viVp W=w/Vp (eqn 2.30) 
t=tVp/H (eqn 2.31) 
p = P'Pp PEg = PEq’/PR (eqmaz 22} 
P = (P- Peg) (PRVR”) Peg = Peg(PpRpTR) (eqn 2.33) 
A = b’iCopte (eqn 2.34) 


a ED) (eqn 23a) 
d= 4 (PRVRCoRTR) (eqn 2.36) 


In defining these non-dimensional quantities a number of reference values have been 
used. H, the herght of the tank ts used as a reference length. The reference values for 
velocity, density. temperature, specific heat at constant pressure, and the gas constant 
are Vp. Ppaee C aR: and Rp. respectively. 

Once the substitutrons for the dimensional quantities are made tn the 
equations, several other non-dimensional quantities appear. These quantitres are the 
turbulent Reynolds Number (Re,), the turbulent Prandtl Number (Pr,), the square of 
the Froude Number (F), and a number proportional to the square of the Mach 


Number (C). The defimitrons of these nondrmensional quantities are: 


Re, = Pipetite (eqn Zag 
Le Me Cor: Kerf (eqn 25333 
F = Vp“/gH (eqn 2.40) 
C = Veo(CorTR) (eqn 2.41) 


The last substitutions necessary to convert from dimensional to non-dimensional form 
are for the heat fluxes and shear stresses. For rectangular coordinates these quantities 


ae: 


a 


eX 


a 


RV 


ac 


AZ 


We 


ZN 


sm Ox) / (Re.Pr,) 


=(omyey) ; (Re, Pr,) 


icmez) ) (Ne Pr, ) 


2 (du; 0x) | Re, 


(Ov, 0x + OGu/dy) / Re, 


(Gw/dx + Oujdz) / Re, 


XV 


EON Ore) Ie. 


(Ow/dy + dv/dz) / Re, 


XZ 


(eqn 2.42) 


(eqn 2.43) 


(eqn 2.44) 


(eqn 2.45) 


(eqn 2.46) 


(equa? . 47} 


(eqn 2.48) 


(eqn 2.49) 


(eqn 0) 


= T, (on 272) 


toy uz 
Tp iaMG OZ pmalNe (qne? Ss) 


Making the specified substitutions in the dimensional equations results in the non- 
dimensional equations. These equations are listed below but the tildes have been 
dropped for simiplicitv. 


Continuity Equation: 


op C O G 
—— + ——( pu) 4) Ct eee veg 2 ae 
ot CX OY CZ 


Ener. bomauam 


le —— ca h) = 
mel ) aa ee ) ae ) me = 


(eqn 2.35 
aie. Cat siege ; 
Ox oy Oz Ah 
Momentum Equations: 
O OG 5 OC 0 
—(pu) # SS CPUy) + Pe ee Ot eee 
ot Ox oy OZ, 
(eqn 2.5% 
Otxx , Oy , Cle ee 
Om oy OZ Ox 
OG ieee GC G De OG 
—= eines ——————— == = 
at p mae ite ) amen” ) 
a a 3 an (eqn 2. sem 
Own . ae ee 
Cx Cy Oz Oy 
CG (ae OG ' CG ; 0 > 
—( pw _—- u —- —— = 
are an Balu ) ay az} Pw ) 
(eqn 2.345 
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Meee ay, Sez Ft. og, 
Ox oy OZ OZ, E qd 


Equations of State: 


Ee + PEq =pT (eqn 2100) 


we Te (qm 276u0) 


In all of the following sections non-dimensional quantities will be used throughout with 
the tildes onutted. 
2. Non-Dimensional Equations in Integral Form 

Thus far all of the governing equations have been expressed in differential 
form. In order to implement a finite difference scheme however, the conservation 
equations (mass, energy, and momentum) miust be transformed into an integral form. 
This form allows the determination of the dependent variables in small but finite 
volumes because the integral equations are written for one such control volume. The 
non-dimensional integral equations below are presented in a format for rectangular 
coordinates. This is easily altered by shifting the x, y, and z subscripts to the 
appropriate independent spacial variables for whatever geometry is selected. 


Continuity Equation: 

a. . 

aus vedv = -|opyends (eqn 2.62) 
Energy Equation: 


d 
acl vPhdv = -|ophyends + |,S),dv (egn 2.63) 
= eccyae rs Gyny + gon, )ds 


Momentum Equations: 


ZS 


d 

apiveudy -|spuyends > \.Pn,,ds (eqn 2. 64) 
+ Joltyyny + Teyhy + Tyznz)ds 

. ——_ 

spivevav = -Jspvuends - JgPnyds (eqn 2.65) 
- Ss py is Cy ns Tygnz)ds 

d 

apivewaV = -Jopwyends - | Pn ds (ean 2.66) 


+ Jg(tzxMy + ToyMy * TgzMz)dS - (P - PEQ)G/E 


In these equations V is the control volume, S is a surface of the control volume and n 


is and outward pointing normal at a particular surface. [Ref. 10: pp. 8-13] 


C. FINITE DIFFERENCE EOUA Tes 

In order to develop a finite difference algorithm the total volume to be modeled 
must be divided into a large number of finite cells. The conservation equations are 
applied to each volume with the boundary conditions applied at the appropriate 
surfaces. The rectangular geometry described here has a uniform grid. The cells are 
therefore all identical and the derivation of the equations is relatively simple. In the 
cvlindricalspherical geometry discussed in Appendix A the radial grid 1s non-uniform 
and more complex. To make the application of the boundary conditions easier the cell 
boundaries coincide with the physical boundaries. In this finite difference algorithm 
the temperature, density, and pressure are calculated at the basic grid points. The 
velocity grids are staggered one half of a cell from the basic grid. Patankar gives a 
detailed explanation of the reasons for using a staggered grid in [Ref. 8: pp. 118-120]. 
Basically, there are two reasons for the staggered grid. First the velocity is easily 
calculated as a function of the pressures of the basic cells on either side of the 
staggered cell. Figure 2.1 illustrates this for a one dimensional system. With the 
pressure known at basic cells A and B it is easier to calculate the velocity at B™ the 
center of the staggered cell rather than at either of the basic cells A or B. The second 


reason for using a staggered grid is that the difference of adjacent velocities is used in 


‘the continuity equation which eliminates an unmrealistic oscillating solution. 
[Relis S: p.120] 








mimore 2. | e@me-OyeensionalStagcered Cell. 


In developing the finite difference equations finite quantities are substituted for 
the differential element in the integral form of-the equations. For example. 
dV = AxAvAz where the A quantiues are finite quantities. Simular substitutions are 
made for the various fluxes across the cell boundaries. Two distinct differencing 
techniques are used in this numerical scheme. Forward differencing is used for the time 
steps and upwind differencing [Ref. S: pp. 83-85] 1s used for the energy and momentum 
fluxes. In the forward difference technique a future value of the dependent variable is 
predicted from a previous one plus a known slope multiphed by the ume step. For the 
conunuity equation 


p=p+mdaAt (feces on | 


ere) is tie walic of the demsits at the previous time step. p is the new value. and m 
is a slope. Using this scheme for the ume dependent term in the continuity equation 
° 


dv = Poa? sxsydz (eqn 2.68) 


cell = 


| > 
nat 


ele 
Ivpav 


> poe 
Glew : 


ct 


As previously stated upwind differencing is emploved in the calculation of the fluxes 
across the cell surfaces. Using the enersy equation as an exaniple, the valueyoi@ihe 
enthalpy h and hence the temperature in the cell under consideration depends on the 
enthalpy in the upwind cell. not the downwind cell. The upwind cell is defined as the 
cell from which the flow or velocity is conung. 

The basic cell shown in Figure 2.2 is used for the continuity and energy 
equations. To ease the development of the equations, directions have been assigned to 
the coordinate axes. East is in the positive x direction, West 1s negative. North ts in 
the positive y direction. south is negative and top is in the positive z direction while 
bottom is negative. The center cell P is the control volume under consideration. The 
cell to the east is E and the boundary surface between them is e. The other adjacent 
cells follow the same convention. Since the velocity cells are staggered, velocities are 
known at the boundaries between the basic cells. The temperature. pressuremsaas 
density are known at the basic cells. 

To simplify the equations mass fluxes at the basic P cell boundaries are defined 


as follows: 


Ge = 9 (Pe > pai | | (eqn 2.633 
Gy = 2 (Pp eee, (eqn 2270) 
G, = 5(Px + Pp) vy (eqn 2.71) 
G. = tees pole : (eqn 2.7% 
G, = (Pp + Pp) W, (eqn 2.73) 





BIhe ceebasiensectaneular Gel) Grid. 


Cee 0p + Pp), (eqn 2.74) 


Piewrsieiescontinuity Euuation tlre suum of the mass fluxes entering the cell is zero 
PU ommiiemiberat.e niimerncal solution this will not be true. especially inttuallyv. The 
sum of the mass fluxes will equal a finite non-zero value which ts called the mass 
source term 3... «As the solution is iterated and converges, the mass source term 
Pecomecsompailcr and snialler until ites less than a cutoll value which 1s made close to 


zero. 9With infinite iterations and infinite machine accuracy Sm would become 


ao 


identically equal to zero and the continuity equation would be satisfied exactly. In the 
actual numerical solution it is satisfied only approximately. Utilizing the definitions for 


the mass fluxes and the mass source the continuity equation in finite difference form is: 


Continuity Equation: 


(Pp - p°p)AxAyAz/dt + (G,-G,)AvAz + (G,-G,)AzAx 


(eqn Zi) 
fe (G,-Gp)AxdAy = Snip 


The other conservation equation that utilizes the basic cell is the energy equation. 


Energy Equation: 


on + p°p AxAvAz, At] hp = DA che ar May hy 


h i if i h (eqn 2.7/6) 
+ ANN aa Ache oe fei =f Aphp == Sp 
where 

NAG = ,3(|G,| - G,)AyAz + (1/Re,Pr), Ages (eqn 2.77) 
DAW = 5(|Gyl + Gy)AyAz + (1/Re,Prp)y AyAz/AX (eqn 2.78) 
DAN, = .5(IG,|- G,)AzAx + (1/Re,Pr,), AzAx/Ay (eqn 2.79) 
NAG = (IG J + G)AzAx + (1/Re,Pr,), AzAx'Ay (eqn 2.80) 
DAT = .5(|G,| - G,JAxAy + (1/Re,Pr,), AxAy/Az (eqn 2.81) 
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Ap = .S(|Gpl + G,)AxAy + (1/Re,Pr,), AxAy/Az (eqn Zo} 
Oe = tap + MAG OAS + BA. + MAT + DAR (eqn 2.83) 


DS = p®p h’p AxAyAz (eqn 2.84) 


The momentum) equations are shghtly more complex because of the staggered 
cells and the additional terms introduced by the shear stress tensor. The grid for the x- 
momentum equation is shifted one half cell to the left (the negative x-direction) and 
quantities in this grid are designated with a ° superscript. Simuitarlty. the staggered grids 
for the y and z-momentum equations are shifted one half cell in the negative vy and z 


b 


directions from the basic cell and these are designated with ° and ° superscripts. 


respectively. Figures 2.3, 2.4, and 2.5 show these grids with respect to the basic grid 
for the xv, ¥z, and zx planes. The finite difference momentum equations are: | 
A-Vomentum: 
[Apa + p°pa AxAyAz’At] upa = 
Apa Ufa a5 Awa Uyya ai Axa una (eqn 2-35) 


a Aga Usa + Arya aa Apa Upa ae Spa 


Where 
ra ot = |. 9(|G,al - G,a) aa (1 Re,).a ee oN ANZ (Gum 2,00) 
Aya = LIUG,,al aero al) ct (1/Re,),.a /Ax] AvAz (eqn, 557) 
Axa = [.5({G,al - Gna) + (1/Re,),a /Ay] AzAx (eqn 2.88) 


y apa 


evan 


J 
—) 
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= [-5(|G,al - G.a) + Rea 


Apa = [-(|Gpal rs a) eel Re, )pa NZ) SNES 


Apa = Aja = Aya 2 Axa a Aga = ‘Nya fe Apa 
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(eqn 2.89) 


(eqn 2.90} 


(eqn 2.9m 


(eqn 29a 





Figure 2.41 Staggered Grid YZ Plane. 
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and in these equations 


Ppa = (Ppt Py 2 (eqn 2.9-4) 
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(eqnaagay 


(eqn 29Gy 


(cone 


(con Zot 


eas = Ce Us 1k? ie (eqn 2.99) 


u,a = (Ui kt =F oe nie (eqn 2.100) 
ia = ue at Wii k-D ee (eqn 2.101) 
Pipk Pp (eqn 2.102) 
G.a = Ppu,a (eqn 2.103) 
Gya = Py) (eqn 2.104) 
cra = L3(px * Pea MP1 + Lk F Py) %i-1j + Lk | (eqn 2.105) 
Gea = [pp + Ps)¥5 + Pw + Pict jk) Yt gk)? (eqn 2.106) 
Ga = [OPT + Pp)w, + P-L) K+! + Pw) WEL ik+ y} 2 (eqn 2.107) 
Cpa [.5(pp + Pp)Wy + Pla a Pi1jk-D Wi-1 j,k! 2 (eqn 2.108) 


Y-VLomentum: 


30 


[Apb + ppb AxAyAz/At] ee 
Agb Vpb ata Ayyb Vyyb a Ab Vb 


a Agb Vob a Arb Vyo aie Apb Vpb a Spb 
where 


ee [-9(|G.b] - G.b) 


+ (1, Ree) b / Axieae az 


FN eae [-3(1G,,.b] pee Ee) 


+ (1, Re,),.b Ax] AvAz 


AXib = [.3(|G_b| - a 


ap (L’Re,) 56 /Av] AzAx 


Agb = [.5(|G,b] + Gob) 
+ (1/Re,).b /Ay] AzAx 
Aape= [-9(]G,b| - G,b) 
cs (1/Re,),b /Az}] AxAy 
i [-5(|Gy6| - Gy) 
+ (1/Re,)pb ;Az] AxAy 
Apb oz Afb + Ayyb as AX-b 5 Agb 
aie Ab Be App 
Spa = p* pb Vv’ pb AxAvAz;At = (Pp : Po)AZAx 
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(eqn 2.109) 


(eqn 2. Tig 
(eqn 2. iam 
(eqn 2.112) 
(eqn 2) 0ia 


(eqn 2.114) 


(eqn 2.115) 


(eqn 2.116) 





+ (Vb - V.b)(1/Re,),b AZAx/Ay team 2.117} 
(Vee Vi j-1, Re,),b AZAx, Ay 
eee eee) pb AX 
. (Wi ik . Wy j-1,k 1 Rep pe AX 
Equations similar to Equations 2.94 to 2.108 may be easily formulated for the Y 
and Z momentum equations but they are omitted here for the sake of brevity. | 
Z-Momentum: 
[Ape + p*pe AxAyAz At] Wpe = 
Ape Wee + Axyomaiayzc + Axe Wx (eqn 2.118) 


+ Age Wsc == Sore Wye =i Ape Wpe =P Spe 
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Age = [.5(IGgel - Gee) 
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Age = [-9(|G ge 15 Gx) 
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(eqn 2.124) 
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eqn 2. ize 
+ Arye ate Ape \ 4 


Spe = P°pe w’pe AxAyAz/At - (Pp - Pp)AxAy 
= (p° pe - PEq pe)AxAyAz/F 
+ Ut Ty k + U4 1p k- PC Repes a2 
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(eqn 2.12 
a (Vij 4 1.k - mi ie pee Rens AX 
= (Vii k - Vij k- DU Reps AX 
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In each equation, velocities corresponding to the primary direction of momentum 
transfer in each momentum equation are expressed with the e, w, m. S, 1) aimee 
subscripts. Thus in the x-momentum equation u velocities have these subscripts. 
Because of the complexity of the equations the other velocities such as v and w 
velocities in the X momentuin equation have i, j, and k subscripts. When using this 
notation Vik is the v velocity at P® or the center of the v grid. Similarly Wi ik 1s at 


P* and Us hk is at P@. 


D. INITIAL CONDITIONS AND BOUNDARY CONDITIONS 

In order to obtain solutions to the governing equations initial and boundary 
conditions must be applied to the model. Because of the setup of the model with the 
cell boundaries corresponding to the physical boundaries the applications of these 


conditions 1s relatively easy. 


1. Initial Conditions | 
The initial conditions correspond to the Fire I test vessel just prior to a test. 
The air 1s initially MoOnemleesmscmtier«crocity field is set equal to zero. [he pressure 
distribution is the static equilibrium distribution in the tank. The ambient temiperature 
is an input to the program and corresponds to a non-dimensional temperature of | at 
all points. 
2. Boundary Conditions 
Because the chamiber is sealed no mass flows across any of its surfaces. Thus 
the velocity and hence the mass flux normal to any surface is zero. No slip conditions 
are also taken at the walls so all velocities at the walls are zero. The boundary 
conditions for the energy equations are more complex because thermal radiation energv 
is deposited at the interior wall surfaces and the steel walls conduct energy to the 
eererion walls where it 1s convected away. In thus miodel the innermost wall cell is the 
outermost cell for the cavity calculation domain. The determination of the 
teniperatures in the wall cells is discussed in detail in the conduction model section. 
The effect of the energy transported to the wall by the thermal radiation is also 


discussed there. 


Eo TURBULENCE MODEL 

The turbulence model used in the algorithm is an algebraic model. The relatively 
simple algebraic type of model was selected because the desired outputs of the program 
are the average values of the dependent variables which the algebraic model predicts 
adequately while using much less computational time than its rivals. More complex 
models are required when computation of turbulent characteristics is desired. Nee and’ 
Liu presented in [Ref. ll: p. 107] a model which is satisfactory for obtaining the 
effective viscosity (fr) in recirculating buoyant flows with large variations in the 
turbulence level. In dimensionless form, when generalized to three dimensional flows, 


the equation 1s 


eee ae. (u Ze aot 2% ae Wa tu, 2y1/2( 1 /g)4 
Os ae Ri Geom 2.127) 
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where Ri is the Richardson number defined as 
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Ri = = ee eqn 2.128 
" Vp (Gu/6z)“+(6v/Gz) veg 


Pr, is the turbulent Prandtl! number, | H 1s the non-dimensional muxing length given 


As 


(eqn 2. Tw 





and K in the mixing length equation is an adjustable constant. The effective 


conductivity is related to the effective velocity by the following equation: 


1 i 
a ee (eqn 2.130) 
re aor 


where Pris the molecular Prandtl nuniber. 


F. CONDUCTION MODEL 

In the later stages of the fire tests in the Fire | Test Chamber the bulk ofmmae 
heat energy transferred into the cavity is lost through the walls. As a result the 
incorporation of a conduction model in the numerical model is vital if the numerical 
simulation 1s to bear any resemblence to the actual test results. 

A simple one dimensional model described by Chang and Yang in [Ref. 12: pp. 
24-27] is used here. The model consists of 2.5 ceils through the wall thickness. 93% 
constant thermal conducuvity for the steel is used and an appropriate convection 
coefficient for the outside wall must be selecved. Vigure 2.6 shows tire setup of (ilemaaam 
cells. Three tvpes of equations are necessary to describe this situation: One tomaame 
cells in contact with the outside. one for the center cells. and one for the imsidemial 


cells. The equations shown below are written for a Wall section at the bottom of the 
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rectangular box so the area for the heat transfer is AxAy and the outward normal 1s in 
the negative z direction. The equations are shown in dimensional form. Starting from 
the outside where the cel! is 1/2 the thickness of the interior cells the one dimensional 


equation using the convection boundarv condition on the outside 1s: 


outside 





inside 


Figure 2.6 Arrangement of Cells in the Wall Conduction Model. 
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For a center cell thevequaerorms: 
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(eqn 2.132) 
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On the inside wall the wall cell is also included in the cavity domain so Tyy3 in the wall 
is the same a [T, for the cavity calculations. T, is the first non-wall cell in the cavity. 


Using this nomenclature the equation for the inside of the cavity wall cell is: 





ik 
AxAy(Te5 - Tey) 7 —Axdy( Tey - Tee) 


2/3 a (eqn 2. Loge 
AxAyAz 


+ Qe = Play — Tyg > Tyg) 


In these equations ky is the wall conductivity, AZyy is the thickness of a full size wall 
Gell PC ow is the heat capacitance of the wall material and in the inside wall cell 


equation Q, is the heat input to the inside cell by thermal radiation. 


G. RADIATION MODEL 

The radiation model used in the numerical model only accounts for the surface to 
surface radiation effects. The gas inside the test vessel is assumed to be transparent 
and nonparticipating. This assumption tends to increase the heat transfer to the inside 
vessel walls [Ref. 13: pp. 142-161]. The effect of the model therefore is to take energy 
directly from the location of the fire and deposit it on the walls of the tank thereby 
affecting the boundary conditions for the energy equation at these walls. The term for 
this addition of energy at the wall has already been utilized in the conduction model. 
The surfaces of the tank and the fire are assumed to be gray. All radiation whether 


reflected or emitted from a surface is assumed to be diffuse. 
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1. The Method for Calculating the Radiant Heat Transfer. 

The net radiositv method for the interchange of radiation between gray 
surfaces as described by Sparrow and Cess in [Ref. 14: pp. 90-94] is the basis of the 
radiation model. The aim is to accurately model the radiation effects while using as 
little computation time as possible. 

In order to understand the radiation model a number of terms must be 
defined. The net rate of energy loss by a surface (1) due to radiation 1s equal to the 


energy emitted munus the energy absorbed or 


Q/A; = & oT. -a; H; (eqn 2.134) 


Where €; is the enuttance. 6 is the Stephan-Boltzman constant, d; is the absorptance, 
and H; is the incident radiant energy per unit time and area. [he radiosity Bs the rate 
at Which radiant energy leaves a surface and equals the radiation emitted pius the 


radiation reflected. 
a €'. 4 : : 45 
ee cc, GO I + Cp. (eqn 2.135) 


1 


In this equation p; is the reflectance of the surface. Since the tank surface is assumed 
Opaque no thermal radiation is transnutted through the material so it must be either 


reflected or absorbed and 


p; 25 a; = | | (eqn PANU ENG) 


G; c: (come? 137) 
Combining this with Equation 2.136 
ee oe: (eqn 2.138) 


With the definitions above the calculation procedure for the radiation energy 


fluxes can be developed. Substituting for p; in Equation 2.135 


= 4 5 
B; = o. 0 qT; aig belicte c:) ie (eqn 2.59} 
Now recalling that H; 1s the energy incident on surface (1), H, can be defined as the 
Sum Om the radiGcimes B; for each of the surfaces in the enclosure multiplied bv the 
shape factor Pi Where F;, is the fraction of energy emitted from surface (j) that is 


incident on surface (1). 


H: = ) B. F:. | (eqn 2.140) 
The radiosity now becomes 


B.=coTt+(l-c. 


ig alae (eqn 2.141) 


J 4 
Where | S13 N which gives N equations for N surfaces. To find the net heat loss 


at a particular surface substitute B; from Equation 2.139 into 


0. en 
- = ee (ot, = Seems) (eqn 2.142) 


al eal 
This equation, Equation 2.142 was found by solving for H; in Equation 2.139 and 
substituting into equation 2.134. 

As just mentioned, the heat loss from each surface mav be found by solving 
the N simultaneous equations resulting from Equation 2.141 and then substituting into 
Equation 2.142. In order to solve the N simultaneous equations the temperature and 
emittance of each of the N surfaces must be known as well as the view factors from 
every surface to every other surface. By manipulation of the equations it is possible to 
set up a situation where the sunultaneous equations need only to be solved once and 
then the temperatures raised to the fourth power in vector form are multiphed by an 
unchanging square matrix to yield the heat loss rates for each surface. In the 
equations which follow, [] brackets enclose a square matrix and < > brackets enclose a 


colunin vector. Using matrix notation Equation 2.141 1s written as 
(C] =8= =o <T= (eqn 2.143) 


where each element in the @iitatriisedlemmmecmn, 
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In Equation 2.144, 0; is the Kronecker delta so ifi = j then oF is one, otherwise 0; iS 


zero. Solving Equation 2.143 for <B> 
<B> = [C)!o <T4> (eqn 2.145) 


Now to solve for the heat loss rate substitute Equation 2.145 into Equation 2.142 so 


that 

<QVAj> = [G]o <T*> (eqn 2.146) 
malnere 

Gi = (03; : D;;) oe es) (eqn 2.147) 
and 

(D) = (cy! | - | : (eqn 2.148) 


In this scheme the [G] matrix is found using the emittance and view factors and need 
only be calculated.once. Then to find <Q./A;> the temperatures for each surface are 
substituted into Equation 2.146. 

To reduce the calculations necessary for the radiation model further, the 
number of surface radiation zones is miade significantly less than the number of cells 
with boundaries touching the surface. This is accomplished bv grouping 20-30 surface 
cells into each surface radiation zone. Then the temperatures raised to the fourth 
fiomerstor tie cells are averaged to get a T? value Nopecae Zones lis redtives 
enormously the number of view factors and the number of radiant heat fluxes that 
must be calculated. 

2. View Factor Calculations 

In order to implement the radiation calculations just described the view 

factors, which are the ratio of radiant energy leaving one surface that is incident on 


another, nist be calculated. In the rectangular box which is the calculation domain 


ee 


for this svstem, the “flame” is modeled as a specified group of cells in the interior of the’ 
cavity Where energy representing the heat input of the fire is added. In this model the 
flame surfaces are therefore also rectangular in shape. Thus the view factors are of two 
tvpes: Radiation exchange between parallel rectangular surfaces and radiation 
exchange between perpendicular rectangular surfaces. 

Sparrow and Cess in [Ref. 14: p. 125] provide the general definition of the 


shape factor. 


Fs) = (1'A>) ff cos8)cos8y (mr~) dA dA, (eqn 2.149) 


on 


Figure 2.7 illustrates the configuration of the two surfaces used in this definition. 
Although equations are tabulated for the geometries in [Ref 14: pp. 339-344] and many 
others they are complex and tedious. Instead of using these equations a Gmear 
numerical method emploved by Chang and Yang in [Ref. 12: pp. 15-18] has been used. 
Figure 2.8 illustrates the arrangement of the two perpendicular rectangular surfaces. 


The equation for the view factor corresponding to this geometrv 1s 


= Va Seo \ i-j- 
Po = yD : G(AL,,, BE) 


i=] j=l k=l l=l - (eqn 2.135% 


where 1, J, k, and 1 are the indices for the coordinates shown in Figure 2.8 and 


At ie Ge ~ mo) (eqn 27m 
BE, = (5 - by) . (eqn Po loey 
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The second configuration consisting of two parallel plates 1s shown in Figure 2.9. The 


equation of the view factor for this geometry 1s 


ry 
iI 


tJ 
i 
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= Se Wo WG 
-1 G@eL,., BE 
yD ) ( Lt jk? (eqn 2.154) 


i=l j=l k=1 t=1 


where 


A ae (eqn 27ieey 


BE =AeeiZ. + ¥;2 (eqn 2uleey 
and 
G(AL},BE),) 
= AL} (1+ BE,;)!? tan AL (1 + BEY?) 7] 
+ BE (+ ALy))? tan [BE (1+ ALY") 17) 
(eqn 2a 


- BE, tan’! (BE) os In{(1 + BEy;*)!"*) 
- AL; tan” (AL)) + Inf(1+AL)7)! 7] 


- Ta ane a BE”) 


From these two view factor equations all the necessary view factors for the rectangular 


geometry may be calctilated. [Re 12 spp, lo=ie) 
Appendix B lists the fortran program which calculates the view factors. These 


view factors are calculated for a particular fire location and then utilized when the 


main prograni is run. 


4§ 





[ot eeeeo Crcomiet. 1or Stew Factor Calculation between Perpendicular Plane Surfaces. 
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H. PRESSURE CORRECTION 
One of the difficulties arising from the use of primitive variables is the difficulty 
of calculating the pressure. In the closed svsteni modeled here the pressure changes are 
divided into two parts: 1.) Changes due to a net energy change in the systeni which 
raises or or lowers the pressure everywhere, and 2.) Changes in pressure within regions 
of the tank which determine the velocity field. To account for these changes in 
pressure a global pressure correction is apphed for the first case and a local pressure 
correction formwe sewond: 
i. Global Pressure Correction 
The global pressure correction is based on a scheme for a two dimensional 
uniform grid as developed by Nicolette, Yang, and Llovd in [Ref. 15: pp. 1724-1725). 
Using this method overall pressure levels are increased or decreased depending upon 
Whether energy 1s added or removed from a system with constant mass and volume. 
At anv particular time step (n) in such a system the sum over all the cells of the cell 
densitv times the volume is equal to a constant which is the mass of the svstem. This 
is of course the same as the sun using the initial equilibrium densities because the mass 


in the vessel does not change. Therefore summing over N cells: 
x p"(AxAydz), = = PEq (AxAyAz): (eqn 2.158) 


Since the cells are uniform, (AxAyAz), may be divided out so that 


n 


Assunung an ideal gas and recalling that the volume is constant, p the density is a 
function of P and T only. Now expressing the exact or true values of the pressure and 


temperature at a time step as the sum of an estimated value and a global correction 


em 
Pa ne (eqn 2.160) 
Tee | (eqn 2.161) 
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Where the * superscript is the guessed or estimated value and the ° subscript g is the 
correction. Substituting these equations, 2.160 and 2.161 into Equation 2.159 and 
using the ideal gas law results in 


™% 


Po’ = (SPegll/T; - VT J-2(P /T )} / S(T ) (eqn 2.162) 


Generally the first guess for P” is the value from the previous time step. Then a P, 1s 
computed and added to the estimated value in every cell. This procedure is continued 
until a globally corrected pressure is obtained which conserves mass in every cell 
[Ref. 15: pp. 1724-1725]. 
2. Local Pressure Correction 

The difficulty in determining the pressure field results from the fact that the 
pressure appears in equation of state multiplied by C which is a non-dimensional 
number proportional to the square of the Viach number. Since the velocities are 
relatively low compared to the speed of sound in this natural convectionsystem. C is 
extremely small and the pressure is very weakly linked to the system of equations. 
Trying to extract the pressure from the equation of state by using a numerical method 
is doomed to failure. Instead, an iterative technique using the mass conservation 
equation to find the pressure is emploved. In it the pressure field is guessed. Then the 
velocities are computed based on this pressure distribution. With the velocities known 
the mass source term Sim, also called the residual mass 1s computed for each cell. The 
size of S,, is a check on the conservation of mass in each cell and a sum of the 
absolute values of S., gives an overall error for conservation of mass in the system. If 
S,, 18 near zero the pressure guess 1s good. Otherwise, a local pressure correction is 


m 
computed based on the size of S,, and the procedure is continued until S_, is reduced 
to a satisfactory value. The equation of state is used (with the pressure now known) to 
find the densities for the next time step. 
Doria outlined in [Ref. 10: pp. 26-32] a procedure for computing the local 
pressure correction. As in the global correction the actual pressure equals a guess plus 


a correction 


P=P +P (eqn 2.163) 


Doria’s method provides a finite difference equation for the pressure correction simular 


in form to the finite difference-conservation equations. The equation for P’ is: 


ApPp = ete ce Ay Py —- A NGN “= Ach 
; (eqn 2.164) 
+ AvPy’ + ApPp’- Sip AxAyAz 


where 
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(eqn 2.166) 
/ {Apay p,,AxAyAz, At) 
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eqn 2.168 
| (Apb + pAxAyAz/At) (eqn 2.168) 


Ar = p, (AxAy)- 
(eqmez. 169} 
i (Ape i ka] a p AxAyAz/At) 
An = py (AxAy)? 
B b ’ 
(eqinie 2.170) 
| (Ape + ppAxAyAz/At) 
AP = aba aWe aN + ards al + a® (eqn 2.171) 


At the solid boundaries where the mass flux is zero the coefficient A in the P’ equation 


corresponding to that boundary is set equal to zero. Once the P correction (P’) 1s 


computed and added to p’ new velocities maybe computed from the following 


equations: 
u=u tu (eqn 2. 
vevity (eqn 2.193% 
w=ew tw (eqn 2.174) 
where 
u = (Pp - Pay) AvVAZY (Apa ie SA Ao (eqn 2.179 
v = (Pp - Po) AzAx / (Apb + p, AxAyAz/At) (eqn 2. 1a 
w = (Pp = Pp) AxAy | (Ape pr axa Azan) | (eqn 2.177) 


Then S,,, is computed. If it is small enough the procedure stops, otherwise a new P’ is 


computed and the cycle continues. 


I. SOLUTION PROCEDURE | 
Figure 2.10 shows a flow chart detailing the calculation procedure. As shown by 
this flow chart, the first few steps set up the initial parameters. The view factor data 
must be read in from a file because the view factors are computed in a separate 
program. Subroutine CALVIS ts called to calculate the effective viscosity for the time 
step. Every ten time steps the energy fluxes to the interior walls of the vessel are 
computed. In the interim the last value calculated is used. Subroutine CALT is then 


called to deternune the temperatures in the interior cavity and the walls of the vessel. 


All of these subroutines use an implicit technique to solve the matrices formed by 
Smmereying the finite difference equations on each cell. Next the global pressure 
correction is computed followed by the density. Then subroutines are called to find the 
Pires velocitics and the pressure in eacly cell. From the new cell pressures a corrected 
velocity estimate is made. With these velocities the continuity equation is applied to 
each cell and the residual mass or the error in the cell mass balance is deternuned. The 
sum of the absolute value of these cell residual masses is called the residual mass 

source (Resorm). The size of this term is really a check of the global and local 
pressure corrections. If the Resorm is too large (greater than the tolerance €) then the 
oumeion 1s iterated. in order to mimimize the CPU time required to run the progran), 
memes!) | Subroutine and the global pressure correction are not coniputed on everv 
iteration. In the present scheme where the maximum number of iterations ts 9, CALT 
is only run on the first, fourth. and seventh iterations. On the other iterations onlv the 
el@emics and the pressure are recalculated. When the Resorm is less than the 
tolerance or the maximum number of iterations have been reached the program 
proceeds to the next time step or stops the calculations if the maximum time has been 


reacned. 
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Figure 2.10 Flowchart for the Numerical Calculation Procedure. 
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Figure 2.10 Continued. 
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Il. COMPARISON OF THE NUMERICAL RESULTS 3771 tie taae 
EXPERIMENTAL DATA 


In an attempt to validate the numerical model comparisons Were run with 
experimental data provided by the Naval Research Laboratory for the Fire 1 Test 
Facility. As a background for the discussion of the results, the data necessary to 
implement the numerical model in a particular situation is presented. This is followed 
by a specific listing of the parameters used for the test case in which the nunierical 


versus experimental results were compared. Finally the analvsis of the results is made. 


A. IMPLEMENTING THE NUMERICAL MODEL 

When modeling a specific scenario for the Fire! test vessel a number of 
parameters must be known. First the type of fuel and its burn rate must be known. 
With this data the heat release rate as a function of time can be calculated. Next the 
location of the fire or fires in the vessel is required. The location of anv temporary 
instrumentation such as the movable thermocouple racks must also be recorded. 
Finally ambient conditions which consist of the initial pressure and temperature in the 
vessel are necessary. With this information the simulation may be run. 
B. NUMERICAL SIMULATION PARAMETERS AND BACKGROUND DATA 

FOR THE FIRE TEST CASE 

Details of the actual parameters used in the numerical model are listed in Table 
2. The material properties and thickness of the wall listed in the table are for the 
ASTM-285 Grade C steel used in Fire I. In order to best simulate the actual Fire I 
geometry with a rectangular box several considerations Were used in determining the 
size and shape of the box. First the volume of the box was taken to be the same as the 
volume for the actual text vessel (11,640 ft). Next the cross sectional area of the box 
perpendicular to the long axis was the same as the cross sectional area of the 
cylindrical section of Fire I. Using these two parameters as guidelines the dimensions 
of the rectangular box work out to be 17 ft X 17 ft X 40.2 ft. The height of 17 ft was 
also selected as the reference length H which was used in non-dimensionalizing the 
governing equations. The grid as indicated in Table 2 by the values of Ax, Ay, and Az 
was relatively course. This was necessary because of the large amount of CPU time 


required even for this grid. The size of the time step was determined by selecting a At 


which permitted performing calculations for the duration of the experimental fire in a 
reasonable length of CPU time while stilt maintaining stabiltv in the computational 
results. Calculations using time steps of .0O17 and .00S85 sec did not show any 
significant deviation from the larger value of .17 sec which was used for the bulk of the 


ealeulations. 


WARE 2 
NUMERICAL MODEL PARAMETERS 


Ax = 2 ft Soe | Lit ee = 1.1 ft 
Total number of interior cells Peo ex 16°X< 16) 
Total number of wall radiation zones 66 


Wall Characteristics: 


Thickness Joe 

Cow 0.1 Btu/(lbm aie ) 

Ryy 25> Btu, inn it ai) 

Pyy Ae Ibm (ft?) 
External heat transfer coefficient i> Btu ame fi? °F ) 
Thimaneusiter ligase 


The background data is shown in Table 3 for the actual fire with which the 
numerical results were compared. Heptane has a heating value of 20854 Btu.lbm 
(Ref. 16: p. 388]. As shown in the table the burn rate date was unavailable. The steps 
taken to overcome this difficulty are explained in detail in the following section. The 
fire was extinguished after 422 seconds by injecting an amount of nitrogen sufficient to 
lower the partial pressure of oxygen betow the critical value required for combustion. 


The interior setup of Fire I in this test differed from the numerical model because 


ye 


Fire I had a grate installed in the north end of the tank at mid height. The grate did 
not extend into the spherical endcap. The data from this configuration was the closest 


to a completely empty interior that was available. 


TASBIL Bes 
FIRE BACKGROUND DATA 


Fuel Heptane 
Burn rate Unavailable 
Duration of the Fire 77 see 


[nitial temperature 3507" Core 


Initial pressure 1 atm 





C. (RESUETS 
1. Generating the Heat Release Rate 

Due to a failure of the instrument which measures the burn rate of the fuel at 
the Fire I facility no experimental data for the actual heat release rate was available. 
Since this latter quantity is a necessary input to the program the lack of data presented 
a significant problem. A temporary solution pending the availabilty of the actual burn 
rate data was developed. The guiding principles are simple. The energy input to the 
cavity produces three effects: [It raises the pressure, it is lost bv conduction through 
the walls, and it goes into the motion of the gas. Because of the low natural 
convection velocities involved the last effect as a percentage of the input energy 1s 
small. Also initially when the temperatures inside the tank are close to the external 
teinperatures the conduction loss is a small part of the energy loss. Thus for a 


significant interval the heat input is almost exclusively used in raising the pressure. 
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Using the ideal gas law P = pRT and P = pRT if p and R are constant. Now 
making the gross assumption that the heat input is uniform, the gas density remains 
constant in the tank because the enclosed volume of gas as well as its mass 1s constant. 
The rate of heat input is just a constant times T and therefore the heat release rate 1s 
proportional to the change in pressure with respect to time. This quantity dP/dt 1s 
available experimentally in terms of the slope of the pressure curve. 

The scheme to artificially develop a heat release curve is based on using the 
experimental pressure curve as an input. From the slope of this curve a first 
approximation of the heat input is determined. Initially for the reasons mentioned 
above this guess is fairly good but as conduction losses mount it proves inadequate. 
To overcome this difficulty the initial guess 1s corrected so that the calculated pressure 
results follow the experimental values. To illustrate how this works, the following 


example is provided. Figure 3.1 shows a typical experimental pressure curve. 
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Figure 3.1 Typical Experimental Pressure versus Time Curve. 
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Throughout the time period shown the actual fire strength or heat rnput is increasing. 
Initially the slope 1s large so the estimated heat input is large. As the fire progresses 
the slope falls off and more of the heat is going into conduction losses. Thus the 
increasing total fire strength is not reflected since the estimated value actuals 
decreases. To account for this error in heat input the estimated value from the slope is 
multiplied by a correction factor. In order to prevent this correction factor from 
becoming too large an additional altcratron 1s made. This can best be explained by 


looking at Figure 3.2. 


time 


Figure 3.2 Comparison of Actual to Estimated Heat [Input Curves. 


Curve A shows the estimated heat input corresponding to the slope of Figure 3.1 while 
curve B is the actual heat input required hy the numerical model to matelmaaie 
experimental pressure curve. The correction factor is the number at cach ume step 
that curve A must be multiplied by to get curve B. -\t the later ume steps when curve 


A is near zero due to the small slope of the pressure curve this correction factor must 


Ce 





be very large. To limit this correction to a more reasonable number which produces a 


more stable result curve C is used as the estimated heat input. Figure 3.3 shows a 


block diagram of the correction routine. The correction factor was computed as 


follows: 
P -P P -P° 
Beeyeotion = ooete= comp _ comp comp . 4 (eqn 3.2) 
Paata Pdata 
where Peomp is the computed pressure and P comp is the computed pressure from the 


last time step. The first term provides a position error type of correction. If the 
calculated value of the pressure is too large the heat input is reduced or vice versa 1f 
the pressure is too low. The second term provides a rate error correction to reduce 
oscillations. If the correction causes the computed curve to approach the actual curve 
too fast this term slows the rate of closure to prevent overshooting. 

Figure 3.4 shows the computed heat input curve. Oscillations are obviously 
present. These are due to the stability problems that arise from taking the derivative of 
numerical data and the problems with the correcting scheme. The average heat release 
rate for the time period shown does correspond with similar data available from NRL. 
Without the precise burn rate data this 1s the best method available to provide a test of 
the program. 

2. Numerical Results versus Experimental Data 

The calculated pressure values follow the experimental data very closely as 
shown in Figure 3.5. This is of course the way the correction scheme was designed to 
work so such a comparison is not a validation of the model. 

A comparison of the calculated temperature versus the actual temperature 1s 
the only method now available for comparison. Before discussing the graphs showing 
the temperature plots it is important to understand how the numerically determined 
temperatures were selected to correspond with the locations of the thermocouples in 
the actual cvlindrical’spherical geometry. A point at the center of each geometry was 
selected as a reference. Them the volume in the actual geometrv between this reference 
point and the thermocouple rack was determined. A length corresponding to the same 
volume between the center reference point in the rectangular box and a YZ plane was 
then determined. A line half way across this YZ plane pointing up in the Z direction 


was then selected as corresponding to the thermocouple rack. The position of each 
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Block Diagram for the Heat Input Correction Routine. 
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Figure 3.4 Computed Heat Input. 
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thermocouple in the actual vessel was measured as a ratio of its height from the 
bottom divided by the total height at that point. This ratio was then apphed to the 
line representing the thermocouples in the rectangular box and the temperatures of the 
grid cell in which the themocouple positions were located was the temperature used for 
coinparison. Figure 3.6 shows a cross sectional view of the rectangular box with the 
location of the fire and the thermocouples specified. 

In order to compare the results the temperatures from three thermocouples 
were selected and plotted: Thermocouple #2 near the top, thermocouple #4 at about 
3/4°s of the distance from the bottom, and thermocouple #6 about half way up. Figure 
3.7 shows the results which were plotted until the fire was extinguished at 422 seconds. 
Miiemeteniperatures coniputed numerically for the upper region of the tank are 
significantly higher (about 150°C) than the actual temperatures. In the nud region the 
computed and experimental results correspond quite well. Results in the lower portion 
of the tank Were not compared because the exXperimentel and nuniericallv computed 
teniperatures change only slightly in this stagnant region. The main reason for the 
discrepancy in the upper region is the difference in the geometrv of the two cases. The 
actual thermocouples are located in the spherical end region and are about 6 ft from 
the end of the tank. In the rectangular geometry the thermocouples are about 3 ft 
feeretne end of the tank. The difference is illustrated in Figure 3.8. The problem is 
that the upper thermocouples in the rectangular geometry are in the region where the | 
hot gas from the fire turns the corner and returns in a recirculating flow to the center 
Site tank. in the actual case the hot gas follows the curvature of the tank in the 
spherical region and penetrates further before returning. Thus the hot gas flows above 
thermocouples #2 and #4 and the experimental temperatures are significantly lower. 
Since no velocity mieasurements are made in the tank the only way to verify this 
supposition will be to run the code using the actual geometry. 

The general spacing and shape of the experimental and numerical curves are 
similar. Except in the region of 120-220 sec the spacing between the numerical and 
experimental curves for thermocouples #2 and #4 is similar. All the curves level off at 
about the same time. This indicates that the same time is predicted for a quasi-steady 
state where heat in equals heat out for both the mode! and the actual vessel. It should 
also be noted that the smooth appearance of the experimental curves is due to their 
reconstruction from a small number of points taken from the original experimental 
plots. [These onginal plots show much more evidence of turbulent oscillations as scen 


im) Figure 3.9 fmen) NRL. 
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Figure 3.6 Fire and Thermocouple Location 
in the Rectangular Model. 
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Figure 3.8 Nlodel and Actual End Region Geometry. 
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Figure 3.9 Experimental Temperature Plot for Thermocouple #2 
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Another source of error in the model is the assuinption of a uniform spacial 
heat input. In a real fire more heat is added in the nuddle region than in the top or 
bottom portion of the flame. This error in the model does not have a significant effect 
on the results shown here because the sensors are so far from the fire that temperaumm. 
effects due to non-uniform heat input are lost in the turbulent muxing between the fire 
and the sensors. For data from a sensor close to the fire this effect should be 
considened., 

5. Velocity Profile and Isotherm Plots 

Velocity profile and isotherm plots are shown for the XZ and YZ planes that 
intersect the fire. Figure 3.l0%shows the location of titesescracs sections. Figures 3.11 
through 3.24 shown XZ and YZ plane views of velocity and isotherm plots starting at 
60 sec and cnding at 420 sec. The figures at 128 sec show the plots at the maximum 
fire strength. The velocity vector scales are shown on each figure while the 
teniperatures of the isotherms are the same for all the plots. As nught be expected the 
plots show the development of the recirculating flow with time. The downward flow of 
the hot gas in the region of the thermocouples is evident. The densely packed 
isotherms at the top of the tank indicate the high heat transfer in that region. The 
lowering height of the isotherms show the penetration of heat with time into the lower 


regions of the tank. 
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Figure 3.13 Velocity and Isotherm Plots after 128 sec on the XZ Plane. 
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Figure 3.17 Velocity and Isotherm Plots after 245 sec on the XZ Plane 
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Figure 3.18 Velocity and Isotherm Plots after 245 sec on the YZ Plane. 
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Figure 3.19 Velocity and Isotherm Plots after 299 sec on the XZ Plane. 
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Figure 3.20 Velocity and Isotherm Plots after 299 sec on the YZ Plane. 
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Figure 3.21 Velocity and Isotherm Plots after 364 sec on the XZ Plane. 
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Figure 3.22 Velocity and Isotherm Plots after 364 sec on the YZ Plane. 
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Figure 3.23 Velocity and Isotherm Plots after 420 sec on the XZ Plane. 
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IV. CONCLUSION AND RECOMMENDATIONS 


CONCLUSIONS 


A number of conclusions mav be drawn from this initial simulation of the Fire | 


test vessel with a numerical model: 


I) 


2) 


4) 


B. 


Despite a lack of experimental heat release rate data preliminary validation of 
the model its possible by numerically generating a heat release curve from the 
other data that was available. 

The rectangular model does not predict the temperatures accurately in the 
upper region of the tank near the tank endcaps primarily due to the difference 
in the geometries. The uncertaintv in the heat release rate also play Seams 
Lower in the tank away from the downward recirculating flow the calculated 
temperatures are more accurate. The overall shape and spacing of the curves 
from the model and experimental curves are simular. 

The expected pattern of recirculating flow in both the XZ and YZ planes ts 
pPredicled Dra themmoder 

Since the Fire I test facility has no velocity sensors, details of the Now fieigmaie 
now available that were unavailable before. Thus some useful information on 
the approximate magnitude of the velocities and the height of the recirculating 
flow zone mav be extracted from the model. 

More extensive validation of the numerical scheme requires the availabiltv of 
heat release rate data and the change to the actual cylindrical’/spherical 


geometry in the numerical model. 


RECOMMENDATIONS 


In order to better simulate the Fire I test vessel a number of recommendations 


for future work are presemtedshenc: 


1) 


Validate the cylindrical;spherical numerical model with data from as many 
locations away from the endcaps as possible. With the current setup the two 
permanent racks of thermocouples and radiometers located at symmetrically 


opposite ends of the tank provide only one set of data for validation purposes. 
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3) 


4) 


Validate the model with experimental heat release rate data. This will allow 
using the pressure as a validating parameter rather than an input. The 
pressure check is much more desirable because it is a global check unlike the 
teniperature which is a check at only one point and is much more subject to 
variations. 

Add more components to the numerical model including decks and 


recirculating fans to better simulate the tests in the Fire [ test facility. 


Add an ability to simulate the nitrogen pressurization capability of Fire [. 


This would allow an excellent ability to validate the conduction model after 
the fire is out. 

Incorporate a combustion model and a gas radiation model. Both of these 
items would add greatly to the capability of the model. The combustion 
model in particular would eliminate the need for specifving the flame envelope 
and the distribution of the heat release rates from combustion throughout the 
flame. In addition, the combustion model would provide a basis for the 
oxygen depletion tate and eventually the effectiveness of a nitrogen gas 


extinguishing system. 
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APPENDIX A 
THE FINITE Dirt BPNEINCE pk i IN OTHER COORDINATE 
SYSTEMS 


The finite difference equations for the numerical model in cylindmcal game 
spherical coordinates are presented in this appendix. One important difference between 
these equations and the rectangular equations presented earlier is the use of a non- 
uniform grid. Specifically, the spacing in the r-direction is variable. This was done to 
trv to keep the cells as square shaped as possible and avoid long thin cells that tend to 
reduce the accuracy of the program. 

I. THE FINITE DIFFERENCE EQUATIONS IN £CYLINDRESSEas 

COORDINATES 

In the cvlindrical geometry the three coordinates are r, 8, and z. The velocities in 
these directions are V,, Vg..and V,. respectively. Unlike the rectangular geometry 
Where gravity only acts in the z-direction, here it acts in both the r and @ directions so 
an appropriate term is included in the r-momentum and 9-momentum equations. 


Continuity Equation: 


(Pp - p’ p)AV/At ste (1. Go-1 Ga 


(eqn A.1) 
a (G_-G Arpad oe (G,-Gy)rpArpA® a SmpAV 
where the mass fluxes at the boundaries are: 
cn = [((Arppp ae ArrPp) i (ese a9 Arp)] Me (eqn A.2) 
Gee = (Ary Pp Sr ArpPpyy) : (Arp oe Aryy)] oe (eqn A.3) 
G, = i (Px; + Pp) Von (eqn A.4) 
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G; = 5 (Py + Pp) a 


Energy Equation: 


[PAp + p’p AV/At} hp = BAg he + 2A hy 


h h le fea. h 
== IN DY oa Ag Ne == ae on + Ap hp “5 Sp 
where 


MAE = (.5(|G|-G,) + I(Re,Pr,)(re-rp)]} teAGAz 
MAyy = {3G gl + Gy) + L(Re,Pry(tp-tyy)]} tyyAGAz 
HAW. = {.5(IG,|-G,) + L[(Re,Pr,), tppAO]} ArpAz 


DNAs = (.3(IG,| + G,) + 1 [(Re,Pr,), tpA@]} ArpAz 


-_— 


DAT = (5G) -G,) + 1[(Re,Pr,), Az]} rpArpAe 


DAR = (.5(IGpl - Gp) + Lil(Re,Pr,)p Az]} rpArpAd 


9 


(eqn A.35) 


(eqn A.6) 


(eqn A.7) 


(eqn A.8) 


(eqn A.9) 


(eqn A.10) 


(eqn A.11) 


(eqn A.12) 


(eqn A.13) 


(eqn A.14) 


MAp = (.5(IG.| + Grp - Gets + rp. l(Re,Prie(te-tp)]} A8Az 


; (eqn A.13) 
a oe - Gee CF a I'p [((Re, Pr.) (rp-ryy) AGAz 
+ Ma.. + TA + Bas + BA, 
ie =p epee a wos (eqn A.16) 


The momentum equations are shghtly more complex because of the staggered 
cells and the additional terms introduced bv the shear stress tensor. The grid for the r- 
momentum equation is shifted one half cell in the negative r-direction and quantities in 
this grid are designated with an * superscript. Similarly, the staggered grids for the 0 
and z-momentum equations are shifted one half cell in the negative 8 and z directions 
from the basic cell and these are designated with © and © superscripts. respectively. 
Because of the complexity of the equations, variables with i, j, and k subscripts are 
used to identify the grid location of many variables. The following equations define the 


location of these subscripted variables: 


Pipe mek (eqn A.17) 
"By TR (eqn A.18) 
Vos = Voijk (eqn A.19) 
ae a Vai (eqn A.20) 
eae (eqn A.21) 


oe | 


Atp = Ar. 


q 


The finite difference momentum equations are: 
R-Momentum: 
[Apa ar p*pa AVE At "tba - 
Apa Vrpa + Ayya Vanes - Ana "tN 


at Aga "tea ee Arya Vera = Apa Me — Spa 


Le 


where 


Aga = {.5(|Gaal - G,a) 


pe crac Arp |} tTeAGAZ 


Ayya = (.5(IGyal + G,a) 


-- 1,[(Re,).a Ary l} r,_;AGAz 


Ana = {.5(|Gyal - Gua) 


+ 1{(Re,)na tyA@ ]} Arpadz 


Aga = {- (|G al a5 G.a) 


+ 1;[(Re,).a tyAO J} ArpaAz 


WwW 


Aza = {.5(|G,al - G,a) 


+ Ii{(Re,),a Az J} 1..ArpaA® 


> 
OW 
& 
| 


= {.5(|Gyal - Gpa) 


(eqnwAs2 7) 


(eqn A.23) 


(eqn A.24) 


(eqn A.25) 


(eqn A.26) 


(eqn A.27) 


(eqn A.28) 


(eqn A.29) 


(eames) \ 


+ I/[(Re,)pa Az J} ry,Arpadd 


TW 


Apa = {.5([G.al + G.ajr, - Gaal © Tine: )ea Arp J} 
x ADAZ 
+ (5(lGyal - Gya) ty + Gya ty + 777 /T(Repya Ary I 
x ABAz 


ata Axa te Aga ts Aya ws Apa 


Spa a p* pa ee AM Ot : (tpPp twPw) A8Az 
(Pp pa - PEg pa) sin8p AV ae 
~ (TeVy a : twVp aX Re, ),ea AQAZ, Arp 


ee Iner aa ABAZ/ Ary, 


: (Ty Vr a ey oe ty 
+ (Veij+.k 7 Yeij+ [kT Reyna Az 
ROG ON) ko eae eee 

TaN (1; Re,),a A8 


-(V 


/ 

Sk) | ele 
aay 1/Re,)r.a A® 

Zk Ziel ye Reva 


and in these equations 


Arpa = (Arp a Aryy7) ee 


eK rpaArpaAQAz 
(Arp + Ary) AGAz / 2 


Ww 


Ga = Pp (TeV + wr) / Ip 
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(eqn A.32) 


(eqn A.33 


(eqn A.34) 


(eqn Avaee 


(eqn A.36) 


Gye = 9 Pw TW ty : TT ae TW 


ca = LO( Px + Pp) AtywV@n 


eek e Pry) ArpV@i-1 5 +1,k) 


/ (Arp a Ary) 


Goa = [.5(Pp + Ps) Ary Vo. 
+ (Py + Pit jk) AtpVoi-1 3 x) 


; (Arp + Ary) 


Ga = [.(pp + Pp) aw 7, 


a5 MAPLL i K+ I + Pw) See k+ u 
/ (Arp ate Ary) 


Gpa = [5(Pp + Pp) AryyVz, 
eee eey ko es K 
/ (Arp a Ary) 


8-VMiomentum: 
[Apb + p®pb AV°/At} Vgpb = 


Arb VOEe <= Ayyb Veaywe as Ab VG 


+ Agb Vacb + Ayb Vazb + Apb Vapb + Spb 
where 


eee 1-5/6] ~ Gib) 
egke pos. + Arp)/2 |} r-A0Az 


a5 


(eqn A.37) 


(eqn A.38) 


(eqn A.39) 


(eqn A.4Q) 


(eqn A.4]) 


(eqn A.42) 


(eqn A.43) 


Awo = (.5(IGyb| + Gb) 


Ww 
(eqn A.44) 
a 1, [(Re,),.b (Arp ate Aryy)/2 1, ryyAOAz 


AND = “fe(eeo| - Gao 


n Aas 
+ 1/[(Re,),b rpA@ ]} ArpAz (eq ) 


Agb = {.5((G.b| + Gap) 


. (eqn A.46 
+ 1,[(Re,).b rpAO J} ArpAz (eq 5) 


Azb = [.5(\G,b| - G,b) 


(eqn A.47) 
a2 al [( Re, )yb AZ }} tpArpAd 


Apb = {-3(|Gpo| - Gpb) 


eqn A.48 
+ 1,[(Re,),b Az ]} rpArpA@ (eq ) 
Apb = {-5(]G,b| ~ G.b)tp : G,br, 
+ rp/[(Re,)eb (Arp + Arp)2 ]} A®Az 
(eqn A.49) 


tao((G,,b|- Gl birp + Geum 
T Tp [(Re)yb (Arp + Aryy)/2 Jj AGAz 


r Ab + Agb -- Arb te Apb 


Spb = p* pb V" pe AV? At ; (Pp : Pg) ArpAz 
2 (p* pb - PEg po) cosOp Ay? ii 


al ) (1/Re,),b Az 


_V 
itd jk i+ 1j-1,k 


=n -V 1,'Re 
( ‘le Ti iLk ( 


+ (Von - Vo,l/Re,),o ArpAz (rpA8) 


pw Az 


(eqn A.50) 


OO. = Vi j-1,k? (1, Re,).b ArpAz / (rpA®) 
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AY = y 1;Re b er 
cies l 44,j-1,k+ ' vt P 
V a 1/Re.).b Ar 

Zi ik Zi sk pe P 


and in these equations 


Arpb = Arp 


Av? 


| 


rpoArpbABAz 


= rpArpAAz = AV 


Gib = i ATppE as ATEPp) . (ATp a Are] vie 


a U(AtpPi+ 15-1 + ATEps) : (Arp =f Arr) V 


Gyo = U(AtyPp + AtpPyy)/ (Atyw + Atp)) V, 


a= (Ary Ps ae ATpPi.1 j-1,k) j (Ary ia Atp)] ac i 


cep = .o Pp (ion a Vo.) 


Gob = 3 Pg (Vag + Voi j-1k) 


Z-Momentum: 


[A pe ts p* pc AVS; At] as = 


oe 


fedneno |) 


(eqn A.52) 


| (eqn ee 5) 


(eqn A.54) 


(eqn A.55) 


(eqn A.56) 


(eqn Aso?) 


(eqn A.58) 


Are Mie te Ayre We ? + An: i 


ES W NS 
© Age We a Are Mi = Ape eae a S pe 


Where 
BMG a (- (Geel - Ge 
a I'[(Re;) ec (Arp a Arp)/2 }} rp ABAz 
Ayye = t-O(/G,,.c| a5 Cac) 
+d (Repame (Arp os Arp), 2 ie ryAGAz 
Nae = {-3(1G,¢| - crc) 
a I‘[(Re,),¢ rpAg } ArpAz 
Age = {-5(1G ¢| at Gre) 
a lnk Renee rpAd }} ArpAz 
Are = {-5(1G,¢| - G,c) 
ac L'[(Re,),¢ Az }} rpArpAé 
Ape = (-3(|Gpe . Gye) 
a L[(Re,)pe Az }} rpArpA® 
Ape = {.5(IGgel + Gge)tp - Geer 
77 rp'[(Re,).c (Arr a Arp)/2 ]} A€Az 
+ 1 (1G, ¢| - Gyc)rp fe Coo 
+ Tp'[(Re,). (Arp + Aryy,)/2 J} A@Az 


Ts Av-c oe Ace ate ea Tt Ape 


98 


(eqn A.59) 


(€qn A.60) 


(eqn A.61) 


(eqn A.62) 


(eqn A.63) 


(eqn A.64) 


(eqn A.65) 


(eqn A.66) 





Spe = p" pe ee VAL = (Pp : Pp) TpA pAz 


+ (V ay 
\ htiyk +1 jk 


: Vn we (I, Re,),,-¢ AG 


Vilage ec AG 
Tp 
+ (Veij+ik > YOij+ 1,k-P Cl Reppe Atp 
- (Voi jk > V@ij k-1) (l/ Rep gc Atp 

+ 3 - Na! Ci Re) chp At pus a2 

; 2, - V zi keD (1/Re,)pe rpArpAe 


and in these equations 


Arpe — Atp 


AVS = tpcArpcAGAz 


(eqn A.69) - 
= tpArpA8Az = AV 
Cine = ((Arppp qe Atepp) | (Arp +- Arr) 7 
’ ; | _feqn A./0) 
ir igkt * Steep)! (Arp + Arp Ve yl Y 
Se yPp © StpPyy)/ (Ary + Atp)) Vy 
ie (eqn A.71) 
ot (Ary Pp =e ArpPi-1 j k-D j (Ary BS Atp)] Vn ke] hj 2 
c° = [-( Px — Pp) Mon 
(eqn A.72) 


+ MPLS +1k-1 F PB) Yeij+ik-1d! 2 


+ PBT Pipa kel) YeipKerl/ 2 


Gye = S pp (Vz + Vx) 
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(eqn A.67) 


(eqn A.68) 


(eqn A.73) 


(eqn A.74) 


Pressure Equation: 


IE et a ApPp’ oS ait AV 
where 


; 
oe Pe (TeABAz)° 


/ (Apa, Lik at Peas 1 j,k’ 0 


a = Pi. (1, A Oli )= 


(Apa + py.AV? At) 


> 
AN = Ph (ArpAz)- 


“b | 
| NPP FL * PpAV A+ LK AD 
2 


/ (Apb + p,AV®/At) 
) 
AT = Py (tpArpAg)* 
; (APE + | a paver )/At) 
2 
Ap = Pp (tpArpA®) 


: (Ape ae pS Va) 


Ap = Ae a Ayy te Pigs sta As ate ia ~ Ap 
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(eqn A.73) 


(eqn A.76) 


(eqn Alia 


(eqn A.78) 


(eqn A.79) 


(eqn A.80) 


(eqn A.81) 


(eqn A.82) 





2, THE FINITE DIFFERENCE EQUATIONS IN SPHERICAL COORDINATES 

In the spherical system the three coordinates are r. 9, and @. The velocities in 
these directions are V-» Vg., and Vip: respectively. Unlike the rectangular geometry 
Where gravity onlv acted in the z-direction, here it acts in all three directions so an 
appropriate term is included in the r-momentum, 9-momentum. and @-momentum 


equations. 


(Pp - Pp’ p)AV/At + (1,°G 


4 | 
ety’ Gry) siInP pAVA® 
. . (eqn A.83) 
+ (G,-G,)rpArpAg + (G,sing,-G,sing,)rpArpA® 
= SmpAV 
where the mass fluxes at the boundaries are: 
9 
Ge = [(Arppp + Are” pp) 
) (eqn A.S4) 
; (ee + Arp)] a 
Gy = [(Aryy*pp + Arppw) 
(eqn A.85) 
/ (Arp ae Aryy7)] Ves 
Ww 
Ca = 5 (Pr; dt Pp) Von (eqn A.86) 
aa (Pa + Pp) Vor | (eqn A.88) 


Energy Equation: 
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[Ap 7 Pp" p AV; Atl Np -= NAr Ne ae a hy 





h h h A h (eqn A.90) 
ie os HS i As Ne te oon hy a6 AR Op =e Sp 
where 
NAc —_ oa = G,) aaa L{(Re, Pr.) (re-rp)) 
eqn A.YI1 
x re“sing pAGA@ = 
Oy = (.5(|G,| + Go)is WiC ereiee te apetens |, 
eqn AgZ 
DAN = (3(|G| 2G ae Reena rpsin® pAG]} 
eqn A.93 
x rpArpAg ) ; 4 
DAG _ hon + oy) oo L,[(Re,Pr,), rpsin@ pAQ)} 
(eqn A.94) 
x tpArpaAg 
hay = (5(IGI-G,) + [Re Pr); pA} — 
| (eqn A.95) 
x rpArpsing AG 
| 
DAR = (.5(IGy] - Gy) + I[(Re,Pry)p rpAg)} | 
| (eqn A.96) 
x rpArpsing pAG | 
eee = (.5(\G,| + Gap - Gu a roa (Re, Pr.) (te-rp ys 
Xx sin@pABA® 
+ (50G..|-Gljm: + Glre- > tea ee Th 
L1G wp ww trp {(Re Pry (rp rw | 
x sIN@ pABA® ' 
a ee (eqn A.97) 


+ (5(IG,| + G,)sing? - G,sing, + sin@p. [(Re,Pr,), tpAg)} 


1O2 


x rpArpA® 
ee Shy G,)sine* + Gpsing, + sin@p [(Re,Pr,), rpAg)} 


x rpArpAé 
So = p°p hp AV/ At (eqn A.98) 


The momentum equations are shghtlv more complex because of the staggered 
cells and the additional terms introduced by the shear stress tensor. The grid for the r- 
momentum equation is shifted one half cell in the negative r-direction and quantities ‘in 
this grid are designated with an @ superscript. Similarly, the staggered grids for the 9 
and Z-momientum equations are shifted one half cell in the negative 9 and z directions 
from the basic cell and these are designated with ° and © superscripts. respectively. 
Because of the complexity of the equations, variables with 1, j, and k subscripts are 
used to identifv the grid location of many variables. The following equations define the 


location of these subscripted variables: 


pp = De . | | (eqmmA 99) 
V.2=V | eqn A.100 
Iw Ti en 
ae Vij. (eqn A.101) 
Vob 7 Voi j,k gneve.) 
rer. (eqn A.103) 
Ww i eh 
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eae! 


Arp = AG 


The finite difference momentum equations are: 


R-Viomentum: 


[Apa ate p* pa AV#'At] Vr pa = 
Ara in =— Ayya = =f Axa Vesa 


aa Aga Vireo 25 Aya Vrya 7 Apa Me a Spa 


Ba 
where 
eae (-I(|Geal - G,a) af 1, {(Re,),a Arp |} 
x resin pABAY 
Awa = (.5(\Gyal + Gya) + 1 (Rega Ary J} 
on 
x T;_) sing pABA 
Axa = L- A|G al - Gre) e 1;[(Re,) 4a r.SIN@ pAG }} 
x I. ArpaA@ 
Aga = {.3(|G,al + Ga) + 1/{(Re,).a 1, sin@pAg J} 
x [yArpaA@ 
Ama = (eo("Gyal- Gea) + Ii Gkes arr aie 
X ry sin@yArpaA® 


W 


Apa = {.5(|Gpal - Gpa) * 1iRee a ry A@ J} 
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(eqn A.104) 


(eqn A.105) 


(eqn A.106) 


(eqn A.10@ 


(eqn A.108) 


(eqn A.109) 


(eqn A.110) 


(eqn A.111) 


(eqn A. Tee 


x f.SiN@pArpaAd 


Ap = (.5(IG,al + Geary? - Gearp? 

+ ee [(Re,).a Arp }} sin@ pAVA® 

+ {.35Gyal - Gyalri.y + Gyaryy 

+ 1 1/[(Re pea Atyy” ]} sing pAdAg 

pee NGA (eqn A.113) 
+ {d(G,al + G,a)sing! - G,asing, 

+ sin@p [(Re,),a r,,AQ]} r,.ArpaAdd 

+ {.5(|Gpal - Gpa)sinp! + Gpasingy 


15 sIN@ pi [ Re, )pa rpAg}} rpArpaAO 


Spa = p* pa 'tpa Nt 
- (p* pa - PEg Pp?) sin8p sIN@ p AV? / F 
>. aa 
comes | = Tye V 
(To (eee Sem ) 
x (1/Re,).a sin@pAVAQ/Arp 
2 2 
GeV. = Te ¥ 
( WoT 1-] Lik 
x (1/Re,),,a sing pAVAQ/Aryy 
: | (eqn A.114) 
+ (Voijeik > Voir jt 1h Redna MWA 
- (Voi ik > Voit jp KU Rep sa WyAe 
+ (Voiikt1 > Voit j.k+ DU Rep rwsine,Ae 


- (Voi jk - Voi-1 j,k 1; Re, ),a ry,Sin@ AO 


and in these equations 


Mea = (Oto Mine); 2 (eqn A.115) 


Ae = [paz sin pArpaAbAg 


(eqn A.116) 
- Ly sm@p (Arp + ae AGA / 2 
Ga = .5 Pp (TeV ig hy’ Gs) i Up (eqn A.117) 
Ce a (Tye 2 TY a ge i ty (eqn A.118) 
Gra = [-(Pr- oe Pp) ArwVo, 
/ (Arp + Ary) 
G,a om |-(Pp BG Pc) ArywVo,. 
+ (Gaga Pi-1 j-1,k) Arp V6.1 jk! (eqn A.120) 
[| (Arp + Aryy) 
G,a = [-( Py ap Pp) AtwVo, 
; (Arp ate Aryy;) 
= (Py te Pit jk-D AtpV@i-1 jk! (eqn A.122) 


A (Arp a5 Aryy7) 


8-Vlomentum: 
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[Apb + p*pb AV®, At] Vgpb = 
Arb Vorb + Ayyo Vawo ~ Ab Vanp 


a= Ab Vgcb aa Arb Vote ae Apb Vaz 3 S pb 
where 


Eyed = Se b| - G,b) 


1 {(Re,)eb (Are + Arp)/2 J} re-sing pAbAg 


aay = {-(1G,.b| + Gb) 


| ((Re,)yb (Arp + Aryy):2 }} ryy7sing pAGAg 


AXb = t-(|G,,b| - ca 


+ 1/[(Re,),b rpAG ]} rpArpAg@ 


eee {-(|G.b| + Gb} 


+ 1/{(Re,).b rpA®@ J} rpArpAp 


eae — {-(|G,b| - G,b) 


an Li{(Re,),b rpA@ ]} rpsingyArpAg 


Apb = (.5(|Gpbl - Gpb) 


a 1 [(Re,)pb rpA® } rpsin@ pArpAQ 


Ap = {.5(IGb] + G,b)rp? - G.br.7 
a [(Re,)gb (Are + Arp)/2 ]} —— 
(S(IGyb| - Gyb)tp? + Gybry 
- ioe ([(Re,)b (Arp + Ary)/2 }} singpAsAg 
+ > Agb 


1Q7 


(eqn A.123) 


(eqn A.124) 


tr 
Cay 
Nee” 


(eqn A.l 


(eqn A.126) 


(eqn A.127) 


(eqn A.128) 


(eqn A.129) 


(eqn A.130) 


qo (Geb iea G,b)sing! - G,bsing, 
+ sin@p [(Re,),b 1,.A@]} tpArpAg 
ae {- (| Gp - Gyb)sing? ate Gybsiny, 


+ sin@p, {(Re,)p> r,A@]} rpArpA® 


Spb = ppb V’gpb AV? /At - (Pp - Pg) rpArpAg 
- (p* pb = PEq Pp?) cos8p SIN p Av? i E 


se ) (1, Re,)ab r.A@ 


ay 
ijk) ee eelek 


: Vr 3 Vite (ly Re.) r,,A® 


; ; . (eqn A. loam 
= on - VaJUL, Re,) 6 tpArpA@ } (rpsin@ pA8) 


- (8s-Vo; “i , (1 Rey) .b rpArpA@/(rpsing pA®) 
a (Voijk+1 = Voij-L.kK+ 1) (ole Re, ),b sing, Arp 


= (Voiik - V9i,j-1,k (1/Re, )po sin, Arp 
and in these equations 


Arp> —Saiep (eqg A: liam 


Av? = rpbsin? pArpobAdA® 


| (eqn Avieen 
oa rpsing pArpABA® = AV 


Gb = ((Arppr 5 ArePpp) i (Arp shi Ast) ee 


e 


(gan A.134) 


+ [(Arppi+4- jt + Ateps) / (Atp + Arp) ‘rie jel k | 


Gb = {[(Atyypp + Atppyy)/ (Ary + Atp)} Vy 


(eqn A.laa 
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> 
— 
O 


Ape = 


Ap = 


Spe = 


(eqn A.144) 
a L/[(Re,) rpsing,A® 3 rpArpA@ 


= {.3(\G,el - Gc) 


(eqn A.145) 
+ 1,{(Re,),¢ rpAg@ J} rpsingyArpA® 


(.5(|Gpel - Gye) 


(eqn A.146) 
+ I/[(Re)pe rpA® J} rpsing pArpA® 


2 i 
soe ss Gc) p - Geer. 


+ tp [(Rez)ec (Arg + Arp),2]} sinp,A@Ag 


: ? ? (eqn A.147) 
+ [.3(|Gyye] - Gyc)rp™ + Gycty,” 


+ rp*,[(Re,)e (Atp + Aryy)/2 }} sing ,AGAQ 
+ Avc + Ace 

+ (.5(\G,cl + G,e)sing® - Gicsingg 

a sin, {(Re,)¢ TpAG]} rpArpA@ 

+ {.5((Gyel - Gye) sim iy Gpcsing py, 


+ sin@,_1/[(Re,)pe tpAg]) rpArpAd 


Pp pe Ve pe AW fat - (Pp - Pp) rpArpA@ 


0 
- (p°pe = Peg pe) {sin®p’ABS(sin®p)] cos, AV" / F 


oi a Lik ; ae Like (1/Re,).c resing,,A@ 


- Vy ) TL Rep ye Ty 


sing,;,A@ 
Tk Ti j kel b 


oi (V9; j aa 1k - V6, ae Lk-P (Ir Re,),¢ Arp (eqn A.148) 


> (WVeii.k > %6ij.k1) REDS 


+ (Vox sing, - Vob sin@y, ) (1/Re,),¢ ArpAG | Ag 


me 





‘ (Yop sIN®y, - Vij kl SIND) _| ) (1/Re,)ne ArpA® i A® 
and in these equations 


Arpe — Arp 


AVS = rpe“sing peArpey QA @ 
Gee = (((Arppg + Argpp)/ (Arp + Arg) Vy. 

a Pcie “TEPp) (ip e Are)] ¥y. 
Gye = UlarywPp + StpPyw), (Ary * Arp) Vy 

a7 [((Ary Pp F ArpPi-y ji k-1) / (Ary = Arp) ‘s k.] 
Gye = L5(Px + Pp) Ven 

+ SPiie der + Pp) Veij+ik-1l/ 2 
ic = [2p + Pc) Vo. 


+ PBF Pij-tk-1) VOijk-1)/ 2 
Gy = 5 Pp (Vor = Vow) 
Pressure Equation: 


+ 2g ia + ApPp - § mP AV 


ie! 


— 


stale aKed 


(eqn A.149) 


(eqn A.150) 


(eqn A.151) 


é 


i = 


(eqn A.152) 


(eam. Aa 153) 


(eqn A.154) 


(comer. 155) 


(eqn A.156) 


(EGE o7 } 


Where 


AE = Pe (re“sing pABA@)? 


i A a, ‘ ; C Aw15 
PT jk 7 PAV i+ Lj, A0 an Ai 


ae 
AW = Pry (T.,“sing pABA@)* 


(Apa + py AV/At) (eqn A.159) 


ARE = pp (tpArpAg)- 


C oy eqn A.16 
tO aaa + p,AV ii+ Lk/ AD (eqn A.160) 


Ag 7 P. (tpArpAg)? 


H (Apb + pAV?/At) (eqn A.161) 


AT = Pr (rpsing, ArpA@)¢ 


c ae / eqn A.162 
APE ey 7 PAV a AD nn 


Ap _ Pi (rpsinp, Arpad)? 


i (Ape + ppAV°/At) (eqn A.163) 
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APPENDIX B 
FORTRAN LISTING OF THE VIEW FACTOR PROGRANI 


KRAREKRKEKKKKRKKKKRKRKKRKRKRKKRKRKRKKRRKKKKRKRKRRKKRRKRKRKKRRKARKKRKKKRRRKRARRKARARKKK 


COMPUTER PROGRAM FOR THREE-DIMENSIONAL SURFACE RADIATION 
FOR NAVY STORAGE TANK NUMERICAL SIMULATION 


DEVELOE ED SY 
K.V. LIU AND K.T. YANG 


DEPARTMENT OF AEROSPACE & MECHANICAL ENGINEERING 
UNIVERSITY OF NOTRE DAME 
NOTRE DAME, INDIANA 46556 


DE Gamee oS 
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A GENERAL FORTRAN PROGRAM TO CALCULATE 3-DIMENSIONAL SURFACE 
BeowealION VIEW FACTOR MATRIx CORFFICIENT 

THE SYSTEM INCLUDES AN ENCLOSURE AND ANY NUMBER OF HEAT SOURCE 
OP@eiNKkKS INSIDE THE ENCLOSURE 


IMPLICIT REAL*8(A-H,0-Z) 











COMMON/BL4/ WYFLR(3 33,3) .WV FLRE(3,3,4,3) ,WVFLF(3,3,4,3), 
& WVFLT(3,3,4,3) ,WVFRRE(3,3,4,3),WVFRF(3,3,4,3) ,WVFRB(3,3,4,3 
& WVFRT(3,3,4,3),WVERL (3,3,3,3),WVFFL(4,3,3,3),WVFFB(4,3,4,3 
& WVFFT(4,3,4,3) WVFFRE(4,3,4,3) ,WVEFR(4,3,3,3) ,WVEBT(4,3,4,3 
& WVFBL(4,3,3,3),WVFBRE(4,3,4,3) ,WVEBF(4,3,4,3) ,WVFBR(4,3,3,3 
& WVFTL(4,3,3,3),WVFTRE(4,3,4,3) WVETF(4,3,4,3) ,WVETR(4,3,3,3 
& WERED(4,3,4,3), woul WWVFRER(4,3,3,3),WVFTB(4,3,4, 
& WVFREL(4,3,3,3),WVFREB(4,3,4,3) ,WVFLB(3,3,4,3) 

COMMON / BLS 
& VFHSR bas 3) VERBS (2/33 “VERBS (233 “VERS (2 3): 
& VERHS /VEFHS /VFREHS (4,3), VFTHS (4,3), VFBHS (4,3), 
& VFHSL VEER 

COMMON ee ae 3), VFRHT(3,3),VFFHT(4,3),VFREHT (4,3), 
& es 3) Vea 3 3). Vials «3 RACE Eat ias 2) 
& VFLHL(3,3),VFFHL(4,3),VFREHL(4,3),VFTHL(4,3),VFBHL(4,3), 
& VELHRE(3,3),VFRHRE(3,3),VREHRE(4,3),VFTHRE(4,3),VFBHRE(4,3), 
& VFLHF(3,3 SERRE (S36 GEEHE (3,3) vEqHE 4/5) VFBHF (4,3) 
& VFLHB(3,3),VFRHB(3,3),VFFHB(4,3) , VFREHB(4,3),VFBHB(4, 3), 
& VETHT(4,3 

COMMON /BL7/ VFHTL(3,3),VFHTR(3,3),VFHTF(4,3) ,VFHTRE(4,3), 
& vie (2-3): THe 3} SEE 3 oa: ee 
& VFHLL(3,3),VFHLF(4,3),VFHLRE(4,3) , VFHLT(4,3),VFHLB(4,3), 
& VFHREL(3,3),VFHRER(3,3),VHRERE(4,3),VFHRET(4,3) , VFHREB(4,3), 
& VFHFL(3,3),VFHFR (3.3) HEWES’ 3 Shon 3) VFHFB(4,3) 
& VFHBL(3,3),VFHBR ae /VFHBF(4,3),VFHBRE(4,3),VFHBB(4,3), 
& VFHTT (4,3 

COMMON /BL8/ mo? a 1 Siz (18) , /NOD(22,18,18) 

RX(5) ,RY¥(4) ,RZ(4) ,AREA(67) ,ZX(5),2Y (4). Pex 


COMMON /BL9/ SWVERE (4 ,3),SWVFL(3,3) ,SWVFR(3,3),SWVFF(4,3), 
& SWVFT(4,3),SWVFB(4, 3 
COMMON /BL10/ NZ,DX,DY,DZ,DXY,DYZ,DZX,WC,DC,HC 


COMMON /BL1/ NI,NJ,NK,NIM1,NJM1,NKM1,NIM2,NJM2,NKMZ, 


See tie, Mids MIS MKK MIM, Mie MIM ,MJP,MKM,MKP, 
See eer OM MJP KKM | MRRP, 


Ik 


* 
* 
* 
* 
* 
* 
x 
* 
* 
* 
x 
* 


5 


DMAANANANANAANIANANANANAANRNAANIANANANANANANANNNANNANNMANANANAANANNM OY 


& 
& 


& 


COMMON/BL11/ MIIZ(9) ,MJJZ(9 


R? $$ 


IREGN1, IREGN2, IREGN3, TIREGN4, IREGNS, IREGN6,IREGN/, 
MREGN1 ,MREGN2 ,MREGN3 , MREGN4 ,MREGNS , MREGN6 , MREGN7 


COMMON /BL2/ IB, IE, 2eMl , teri, Tei eee 
& JB,JE,JBM1,JePl Jen gee, 
KB, KE ell (REPL, Rea! ae 


Lili 


KTHIN(9), 
) NHSD(9),KHSB(9) ,NHSH(9) 


COMMON/BL3/ VFMXR(67,67),SMXVFW(67),SMXVFH(67) 


KRAEKRKKRKEKKRKRKRRKRKRRRAKRKKRKRKRKRARRRKRKRRRERKRRRRRRRRRKRRRRKRRRKRRRRRRKRRRKRRRRRER 


xxx THE COORDINATE SYSTEM IS AS FOLLOWS. 


A-DIRECTION Ts FRen Ube 
Y-DIRECIION Is ER@m Rea 


TO BS 
TO 


Z-DIRECIION fs FROM BOTTOM TO “TOP 


NEGATIVESGRAVIITY, 


-G , 


Pe 


PRONT 


IS IN POSITIVE 2=DiRBer ion 


) ee) ee ,LTYPE(9,6), 
9),LJ(9),LK(9) ,AYZ(9) , AXY¥(9) , AZX(9), 

NHSZ, ITHIN(9) , JTHIN(S) 
IHSB(9),NHSW(9), JHSB(9 


KAKKKRKRARKARARKAARARKAK AK ARAK RK RARAKA AKA RAAKARA KARA ARERR RKAKARARAKRKR 
*ARXTHERE ARE 6 INTERIOR WALLS AND EACH WALL IS DIVIDED INTO CERieaay 


WALL ZONES 


*kX TO DISTINGUISH INTERIOR WALLS, EACH WALL HAS 


LE 
RIGHT 
REAR 
FRONT 
BOTTOM 


Oe 
ARK 


HEAT 


IF THE Heel SOURGE 


WALL 
WALL 
WALL 
WALL 
WALL 
WALL 


SOURCE 


1s 


REGION 
REG@LON 
REGION 
REGION 
REGION 
REGION 


REGION 


REGReoeN TED 
REPRESENTED 
REE RE SEM 
REPRE SEED 
REBRESENTED 


, REPRESEMIED 


aI AONAWNEH 


IS TREATED AS A 


Ci 
RIGHT 
REAR 
FRONT 
Bourton 
TOL 


SURFACE 
- SURFACE 
SURFACE 
SURFACE 
SURFACE 
SURFACE 


OF @HE MEAT 
THE BEAT 
THE BeAT 
TRE Hieveer 
THE Hie? 
THE HEAT 


SOUREE 
SOURCE 
SOUR GE 
SOURGE 
SOURCE 
SOURCE 


xxX* IF ONLY TWO SURFACES ARE CONSIDERED FOR HEAT SOURCE 


, KREEREBSeImED Ba 


BY 


Cet eee 
LE Pie 
UE TER 
Gel eR 
Ue eR 
Cerro 


LE THR 


A DESIGNATED SYRE@e 


HO uamvawar 
eS 


HS 


SUBJECT WIDE 6 


SURFAGES, Tien 


REPRO okt ED 
REE RESEN LED 
REBRESENTED 
REBRES SEED 
REPRESENTED 
REPRESEN D SD 


LEDS 
LET TSR 
LETT BR 
LET Tee 
LETIER 
LETTER 


HL 
HR 
Igiisda 
Re 
HB 
HT 


THEN CH@t@e=s 


TWO OPPOSITE SURFACES SUCH AS HL AND HR AND ASSUME ZERO DISiaiies 
BETWEEN hese LWO6 SU nase ao. 


ARK 


- 
Z 
3 


ARK 





THE ay GEM 


PACTOR» CAN SBE SSORTED AS 


INTERIOR WALL SURBACE VS WAEERSUREAeE 
INTERIOR WALL SURFACE VS HEAT SOURCE SUREACE 
INTERIOR WALL SURFACE VS WHOLE HEAT SO@RGE 


EACH WALL SURFACE 


IS DIVIDED INTO SERVERAG@HMLL ZONES 


FOR INSTANCE, THE LEFT WALL L, LOCATED AT A=0 OR I=1, 


IT CAN HAVE MJ DIVISIONS dia 
K DIRECEROH, TRER@serE- 
ACGORDINGaa. 
RIGHT 


REAR 


ARK 


Vier 


ARK 


WALL HAS 


WALL HAS 
FRONT WALL HAS 


BOTTOM WALL HAS 
WALL HAS 


NORMALLY THE 


WALL ZONES 


MJ1*MK1 


MI *MK2 
MITeiKS 


MI29MJ2 
MI3*MJ3 


THERE 
ZONES AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


TS DiVibee 


ZONES 
ZONES 


ZONES 
ZONES 
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MJ1 
MK1 
MK2 
jill a 
MK3 
MI2 
MJ2 
Pee 
MJ3 


IN 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


MJ 
MK 


DIRECTION AND ME. DIVISTONS Ti 
IS MJ*MK ZOMBS 


ON LEFT WALL 


MAY 
MAY 
MAY 
MAY 
MAY 
MAY 
MAY 
MAY 
MAY 


HAVE 
HAVE 
HAVE 
HAVE 
HAVE 
HAVE 
HAVE 
HAVE 
HAVE 


SUCHaWe= sO THE 
SOURCE IS ALIGNED WITH ONE OR FEW WALD ZONES 


EQUAL 
EQUAL 
EQUAL 
EQUAL 
EQUAL 
EQUAL 
EQUAL 
EQUAL 
EQUAL 


HEAT 


NQ. 


NO. 
NO. 
NO. 
NO. 
NO. 
NO. 
NO. 


AXX AFTER THE WALL ZONES ARE ASSIGNED THEN ALL ZONES IN ALL WALL 
SURFACES ARE GIVEN AN INDEX NUMBER 


ARATE THERE ARE MI DIVISIONS IN X-DIRECTION 
MJ DIVISIONS IN Y-DIRECTION 
AND MK DIVISIONS IN Z-DIRECTION, THEN FOR A GENERAL CASE 


THERE ARE MJ*MK ZONES IN LEFT WALL AND INDEXED FROM 1 TO MJ*MK 
MJ*MK ZONES IN R WALL AND INDEXED FROM MJ*MK+1 TO 2*MJ*MK 
MI*MK ZONES IN RE WALL AND INDEXED FROM 2*MJ*MK+1 TO 2*MJ*MK+MI*MK 
MI*MK ZONES IN F WALL AND INDEXED FROM 2*MJ*MK+MI*MK+1 TO 
MI+MJ) *MK 
MI*MJ ZONES IN B WALL AND INDEXED FROM 2*(MI+MJ)*MK +1 TO 
MI+MJ) *MK+MI*MK 
MI*MJ ZONES IN T WALL AND INDEXED FROM 2*(MI+MJ)*MK+MI*MK+1 TO 
| MI *MJ+MI*MK+MJI*MK) 
**k* FINALLY THE HEAT SOURCE IS THE LAST ZONE AND INDEXED AS” 

2% (MIAMI+MI*MK+MI*MK) +1 


*x*AX TF MI=4, MJ=3 AND MK=3, THEN THERE ARE 2%(4%3+3%3+3%4)=66 
Pees SUREAGE, ZONES AND 1 HEAT SOURCE ZONE 


IF WE DIVIDE ONE WALL SURFACE INTO 4%*3 ZONES, AND THE HEAT SOURCE 
peu ie OUCH aime Weabpe. Tf TS SEEN fO OCCUPIED THE ZONE 
IF THE RADIATION ZONE OF HEAT SOURCE IS TREATED AS AN INFINITE 
Piece OF PLANE THEN WE HAVE ONLY TWO SURFACES IN THE HEAT 
SOURCE AND IT CAN BE CONSIDERED AT THE INTER FACE OF ZONE (2,2) 
AND (3,2) AND THE WHOLE AREA FACES TO THE LEFT TANK WALL AT THE 
ZONE OF MJ=2 AND MK=2. 


*x*X THE INDEX OF EACH ZONE IN A WALL OF 4%3 ZONES IS ASSIGNED AS 


NON N 
a a 


N) 
- 


ABOV Es Toe MRE ATeSOURCE , KHIT TO NK 
SAME LEVEL AS HEAT SOURCE, KHB TO KHT 
BELOW THE HEAT SOURCE, ZZ, 1OMRHE 





pemeretO 1ST eZONE, LEFT OF HEAT SOURCE, RIGHT OF HEAT SOURCE, 4TH ZONE 
TO ANOTHER SIDE OF THE WALL 


Pie STRUCTURE OF MATRIX IS 








( JL ,R ,RE ,F ,B ,T , HS. TOTAL IS NZ TERM 

=e THE ARRAY IS LAID OUT AS FOLLOWS 
I=RE My 1) 2) 221 MK). 2 MK) a , 1). . (MK) 

ia FROM ae ee OR FROM MU*MK+1 TO 2*MJ*MK 
I=B RE IS FROM (1,1)...TO...(MI,MK) OR FROM 2*MJ*MK+1 TO 2*MJ*MK 
Lea +MI*MK | 

I=HS IS FROM (1,1)...TO...(MI,MK) OR FROM 2%(MJ*MK)+MI*MK+1 TO 


2*(MI+MJ)*MK 
B IS FROM (1,1)...TO...(MI,MJ) OR FROM 2*(MI+MJ)*MK+1 ie 
2% (MI+MJ ) *MK+MIAMI 
lomo chm cl, 1)... Oise ( Mio Md) CRPPROM 2*( 14M) ) <MKeMI*MJ+1 
| TO 2%(MI*MJ+MJ*MK+MKANI ) 
HS HAS 1 ZONE TO 2% (MI*MK+MJ*MK+MI*MJ) +1 | 


KAARKRKRKAKKKRARKRRKRARKAKKRRARKAKRAKKAKAAKARARRKAKKRKKARKARKAKKARARKKKRAKKKERARK 


***X ALL VARIABLE NAMES USED IN THE INPUT DATA STATEMENT ARE THE SAME 
ONES USED IN MAIN PROGRAM 


oe ietineOn THE TANK, IN X-DIRECTION, ay 
DGmeee se ineer THESTANK, IN Y=DIRECTION, (FT 


AAAANAANANINANANINANNNNNNNANNNINNNAANAANANNAINANNNNNANNANNNNNNNANANNNANNNANNANANNIANAINAINANIANNNA 
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AN ANA NANAANANAANDNAANANANNAANANAAANDANRAANANANANAANANAAAAANAANAAANAANANAANANNANAANANANAAANMAMA 


HC : HEIGHT OF THE TANK, IN Z-DIRECTION, (FT) 
kkX NI ; TOTAL NUMBER CELLS IN X-DIRECTION 
NJ : TOTAL NUMBER CELLS IN Y-DIRECTION 
NK : TOTAL NUMBER CELLS IN Z-DIRECTION | 
Ak AREA() : SURFACE AREA OF RADIATION ZONES (FT**2) 
xk” NHSZ : # OF HEAT SOURCES 
ARR LTYPE() : TYPE OF HEAT SOURCE SURFACES, 1 FOR ACTIVE 


Ame THSE : STARTING CELL NUMBER FOR EACH HEAT SOURCE IN A-DIRECRIRS 
JHSB : Y-DIRECT IG 
KHSB ; Z-DIRECIIG# 

*A*XX NHSW : NUMBER OF CELLS FOR EACH HEAT SOURCE IN XA-DEREC Taal) 

NHSD : Y-DIRECL Gai 
NHSH Z2-DIRECT Beni 


AKK NZ : TOTAL NUMBER OF SURFACE ZONES USED IN RADIATION EXCHANGE 
*AAX MI ;: NUMBER OF ZONES IN X-DIRECTION 


Me Y-DIREGRION 
ie 2-DIiReee LON 
AAKX LI : NUMBER OF CELLS FOR EACH ZONE IN x=DiRBei eel 
LJ : Y=DeeeerrOoNn 
LK : Z4-p iaee 1 LON 
* Mie : LOCATION OF THE HEAT SOURCE, ZONE NUMBER IN X-DIREC Tigi 
MJJZ : ZONE NUMBER IN Y-DIRE@iiae 
MKKZ : ZONE NUMBER IN Z-DIRECI IGF 
* ITHIN QO OR 1; ZERO OR 1 ZONE SPACE BEtes THO OPCS ees 


JTHIN 
KTHIN 








SIDES OF A Hea SO Rare IN 

K;(1),. ¥;(J), AND Zep iemel Ions 
IF ITHIN=JTHIN=KTHIN=1 MEANS A RECTANGULAR SHAPE HEAT 
SOURCE/SINK 
IF ITHIN=JTHIN=KTHIN=0 MEANS AN INFINITE THIN SHEET OF 
HEAT eee IN ALL 3 DIMENSIONS 


KAAKKKKKKKKKKKAKRAEKKKKKKARARRAKKAAKKAKKAAKKARARKKKAKKKAKAKAKKRKKAKKKARKAAKKKARK 


BSS SSS SESS S SSS SESS SSSSSSSSSS SO RSS SRT OSS Sele o ey se Soave 
USER SHOULD ASSIGN VALUES FOR MI,MJ,MK, MIIZ(),MJJz(), MKKZ(),$ 
WC.DC.HC; NI,NJ,NK, 
NHSZ. LTYPE($ AND 
IHSB.JHSB,KHSB, NHSW,NHSD,NHSH 
THESE VARIABLES. WILL BE USED IN MAIN PROGRAM ALSO 


GT TO 
UF UW UY 


— SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSsSsSssssssssssssssss 


KKK SSSSSSSssssssssssss 
WC=40.2 


DC=17. 
HGS. 
NI=22 
NJ=18 
NK=18 
MI=4 
MJ=3 
MK=3 
NHSZ=1 
Lies 1 
Livgee( 
Lia eel 
Lie ee.) 
Li wee 1 
Livres 
Mita 
eee ; 


nee $§5$9S4SSSSSSSSSSSS9S5 
AX*X READ INPUT DATA 
AXX READ # 1 


i 
j= 
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AA AN 


O 


Cie) Gy (Grae) 


G 
C 


READ(5,*) WC,DC,HC,NI,NJ,NK 
WRITE(6,21) WC,DC,HC,NI,NJ,NK 
ee eee ee — Bll .4,' FI',3X,'DC =',E11.4,' FT',3xK, 
& 


hiee=' Fil.4,' FT! ./, 
Cee t=" Pseon No =! 23 56K,'NK =',13,//) 


RAR READ # 2 


READ(5,*) NHSZ 


WRITE(6,31) NHSZ 
1 FORMAT(5X,'TOTAL NUMBER OF HEAT SOURCES, NHSZ :',12,//) 


axxxAK TF NHSZ > 1, THEN READ NHSZ SET OF CARDS FOR READ GROUP 2 TO 4 
DO 11 I=1,NHSZ | 
aK READ # 3 


READ(5,¥%) mere re RAERE RS) yLTUPE(T , 4) ,LTYPE{T, 5), 
& LIYPE(I,6 


xAX READ # 4 


xx READ POSITION AND SIZD DATA FOR HEAT SOURCE 
READ(5,*) IHSB(I),NHSW(I),JHSB(I),NHSD(I),KHSB(I) ,NHSH(I) 
AK READ # 5 


REPS, *) MIIZ(L) ,MJIJZ(1) ,MKKZ(T) 
*xAX READ # 6 


READ(5,*) ITHIN(I) ,JTHIN(I),KTHIN(I) 














WRITE(6,12) ee ee ie la) )  BTMEE} 1.4). 
& LTYPE(1I,5),LTYPE(I,6),IHSB(1I) ,JHSB(I) ,KHSB(I), 
& NHSW(I) ,NHSD(I),NHSH(L) ,MIIZ(I) ,MgJZ(1) ,MKKZ(I), 
S ITHIN(I) ,JTHIN(1) , KTHIN(I) 

12  FORMAT(5X,'HEAT SOURCE NUMBER :',12,//, 

& 10X,'ITS 6 SURFACE TYPIES ARE : LTYPE(I) =',612,//, 
& 8X,'LOCATION OF THIS HEAT SOURCE ........ ve 
& 10X,'STARTING CELL NUMBER IN X-DIRECTION : IHSB = ',12,/, 
& 10K, ! Y-DIRECTION : JHSB = ',12,/, 
& 1OX,' Z-DIRECTION : KHSB = ',12,//, 
& 10X,! AND THE CELLS IN X-DIRECTION : NHSW = ',12,//, 
& 10XK,' Y-DIRECTION : NHSD = ',12,//, 
& 10K, ! Z-DIRECTION : NHSH = '.12,//, 
& 10X,'LOCATION OF THIS HEAT SOURCE RADIATION EXCHANGE ZONE',/, 
& 20X,'ZONE NUMBER IN X-DIRECTION : MIIZ(I) = MII = ',12,/, 
& 20K, ! Y-DIRECTION : MJJZ(I) = MJJ = '.12./, 
& 20K, | Z-DIRECTION : MKKZ(I) = MKK = ',12,//, 
& 10X,'THIS HEAT SOURCE ZONE HAS ',//, 
& 20X,'ITHIN(I) =',12,' ZONE THICKNESS IN X-DIRECTION'! ,/, 
& 20X,'JTHIN(I) =',12,' ZONE THICKNESS IN Y-DIRECTION',/. 
& 20X,'KTHIN(I) =',12,! ZONE THICKNESS IN Z-DIRECTION' ,//) 


11 CONTINUE 
xR READ # 7 


READ(5,*) MI,MJ,MK 


Ly 


AAANAAANANAAANNAANMNANNANANMM”AMAMACM 


READ(5,* Li (1) lai 
READ(5,* LO{ 1), t=) 
READ. 6 EK (CL ) oi 











WRITE(6,18) MI, (LI(I), ol MI) 


18 FORMAT (10X, 'THERE IS la ,12,' ZONES” Wipx-DIRBGITON' 7/72 


& 20K, 'THE NUMBER OF CELLS IN EACH 20 IS; LIC, =! ome jae) 


WEETE(6, 19) Md (odd) oe 


is FORMAT (10X, 'THERE IS ei = ,L2,' ZONES IN Y-DIRECTION' ,//, 
& 


20X,'THE NUMBER OF CELLS IN EACH ZONE IS ; LJ(I) =',1013,/) 
WRITE(6,20) MK, (LK(K),K=1,MK) 


20 FORMAT (10X, 'THERE 15 > lhik = ,L2,!' ZONESMIN Z=D TREC) LOM 


& 20X, '! THE NUMBER OF CELLS IN EACH ZONE IS ; LK(I) =! vom 3h /) 


WRITE(6,308) HZ 
WRITE(6,308) MZ 


308 FORMAT (5X, 'TOTAL NUMBER OF ZONES ON TANK WALL =!,13,/) . 


NZ=MZ+NH5SZ 


KAKKAKKKARKAKKRAARKKAKKKAKKKAKKAKKRKKRKAKRAKRAKKKKKKKKKKRKREKKAKKKRAKKRRRE 


kkk VARIABLE ARRAY NAMES FOR ALL SURFACE EXCHANGE ARE DEFINED AS 


AX 


& 


FOLLOWS ; 


WVF-- : VIEW FACTOR BETWEEN TWO INTERIORS avo 2e eS 
SWVF--: SUMMATION OF VIEW FACTOR FROM ONE WALL ZONE TO ALL OTHER 


WALL ZONES 


VF-H- : VIEW FACTOR BETWEEN HEAT SOURCE SURFACE TO INTERIOR WALL 


ZONES 


VF-HS : VIEW FACTOR BETWEEN WALL ZONE AND WHOLE HEAT SOURCE 
VES : SURRAEe 

SVFHS : SUMMATION OF VIEW FACTOR FROM HEAT SOURCE TO WALL ZONES 
VFMXR : VIEW FACTOR Hage Gort hiGea 


SMXVFW(1I): SUMMATION OF VIEW FACTOR MATRIX COEFFICIENT FROM ANY 


ONE ZONE TO ALL OTHER ZONES EACEP! IRE HEAT SOUM@E 
ZONE. THERE ARE NZ-1 VALUES 


SMXVFH: SUMMATION OF VIEW FACTOR MATRIX COEFFICIENT FROMMRae 


SOURee ZONE TO ALL OTHER WALL ZONES. ONLY ONE VALUE 


AKX DEFINE THE GRID S¥oe@enH 
x*X DX,DY,DZ AND X,Y AND Z ARE DIMENSIONAL QUANTITIES (FT) 


DX=WC/ (NI-2 
DY=DC/ (NJ-2 


DZ=HC/ (NK-2 


NIM1=NI-1 
NJML=NJ-1 
NKM1L=NK-1 
NIM2Z=NI-2 
NJM2=NJ-2 
NKM2=NK-2 








zxAxK*X DEFINE THE DISTANCE BETWEEN EACH CELL 


DO 233 J=3,NJ 
Y(J)=DY*(J-2) 


2335 “COlinUE 


2(1)=-DzZ 
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AAAN 


100 FORMAT 
£Ol FORMET 
102 FEARMAT 


776 FORMAT 


ACS =O. 
DO 3 K=3,NK 
2K) = DZ*(K-2) 
3 CONTINUE 
eS: ,100)(xX( 
Dee {FT 
say ,101)(Y( 
2X,'¥ (FT 
oe: 102) (24), 
Dx FT 


DXY=DX*DY 
DZX=DZ*DX 
DYZ=DY*DZ 


AL=2.*X(NI)*Y(NJ)+2.*¥ (NI) *Z(NZ)+2.%Z (NK) *X(NI) 


RA ,176) DX,DY,DZ,DXY¥ ,D¥Z,DZX,Al 

/,5X,'DX =!',E11.4,2x,'DY =! Feb UD a 4, / , 
eee omy =',611.4,2% 'DYZ =! 11.4, 2x,'DZX =',F11.4,/, 
&/,5X,' ALL IN FT ‘OR FTX*2' //,5X,'TATAL INTERIOR SURFACE ', 

& ‘AREA =',F8.3,' FT**2' /'} 


BealM=l1T-1 
MEPsitiI+i 
MJM=MJ-1 
MJP=MJ+1 
MKM=MK-1 
MKP=MK+1 


MREGN1=0 
IREGN1L=MJ*MK 
MREGN2Z=MREGN1+IREGNI1 
IREGN2=MJ*MK 
MREGN3=MREGN2+IREGN2 
ITREGN3=MI*MK 
MREGN4=MREGN3+IREGN3 
IREGN4=MI*MK 
MREGNS5S=MREGN4+IREGN4 
IREGN5=MIAMJ 
MREGN6O=HREGNS+IREGNS5 
IREGN6=MIAMI 
MREGN7=MREGN6+IREGN6 
IREGN7=NHSZ 


WRITE(6,777) IREGN1,IREGN2,IREGN3, IREGN4, IREGNS, IREGN6 , IREGN7, 
& MREGN1+1, MREGNZ+1, MREGN3+1 /MREGN441, MREGN5+1, MREGN6+1 /MREGN7+1 


fa? FORMAT (/, 5X, 'NUMBER OF ZONES IN EACH REGION, IREGN : 


OK, 'REGION 1 =! I3,28,' / Re POP z ees 2K, *REGION Sener, 2X, 
,REGION 4 =! plese Zn, , REGION 5 = V3). a , REGION bee els, 2X, 
| REGION 7 =! 13 a, sk 'THE STARTING INDE NUMBER FOR EACH' , 
eee MREGN : ' 
pe aorON 1 See PeeGne 2) lS72x, REGION ss —',13,2X, 
Dee ON 4) =", 13) 2x,', REGION 5 =",13,2K,',REGION 6 =' ,13,2X, 
SREGEGN 7 =',13,/) 


RQ? QW Q BM BH 


*K*X DEFINE THE DISTANCE FOR THE ZONE COORDINATE 


DO 14 I=1,NHSZ 

IB=IHSB 

ITE=IHSB(1I)+NHSW(I)-1 
+NHSD(I)-1 


JB=JHSB 
JE=JHSB 
+NHSH(I)-1 


KB=KHSB 
KE=KHSB 


BBL =IB=1 
Peitiiee=LE= 1 


Hi titititete 


lho 


JBMA =JB-1 


JEM] =JE-1 
Ise =8e-1 
TEP = ee 
JBP1 =JBt1l 
JEBIS=JE Fi 
KBM1 =KB-1 
KEMN1 =KE-1 
KEEL =h5+ 1 
KEP] =KE+1 


WRITE(6,2) 1I,IHSB(I),NHSW(I),IB,IE, JHSB(1),NHSD(1),JB,JE, 
& KE 


KHSB(T), NHSH(I),KB, 


2 Some 2K) San POSITION PARAMETERS FOR HEAT SOURCE +! , 


va SK, ‘ITS LOG IONS... 

















& oe 'THSB =! /13,2X, 'NHSb =! To Osean =', 
& 5X, 'JHSB =''13,2X,'NHSD =' 13,224,435 “| 
& 5X,'KHSB =',13,24%,°NHSH =' Tap 2 eee 
Lami Za 
AYZ(T )=(Y( JE+I) -Z( UB )) 702 ( RE+1 pee 
AK I ) = GC J Bel eY CSB) )* CRT Bel ) -K CGE 
AZA(I 2(KE+1)-Z( KB) )*( K( Tete oe 
AREA (LZ)= AYZ (1) HAZK (1) +AKY Gig =z 


WRITE(6, 32) AXY(1),AYZ(1), AZK( 1). ARmeigeZ 
SZ FORMAT (10x, THE SURFACE AREA OF THE HEAT SOURCE! ae 
a 1 'AXY r} = ,E11.4,! FI**2 IN K-Y POA’, 


& ZOX, Hae2cr 
& Z2OK, 'AZACIL 


= E11. 4, FT**2 IN Y-Z PLANE! Ae 
= Ell. 4, | FE-s2 INeZoe PLANE’ , 


& oe ll! lh TOTAL’ SURFACE AREA IS =! joes, 


14 CONTINUE 


RX(1)=0. 
Tks 
DO 15 I=1,MI 
TM=Li eet 
RX (I+1)=X(1I1+1) 
II=I1 

15 CONTINUE 
RY(1)=0. 
JJ=1 
DO 16 J=1,MJ 
JIS ue Is 
RY (J+1)=Y¥(J1+1) 
JJ=J1l 

16 CONTINUE 
RZ) =Or 
KK=1 
DO 17 K=1,MK 
K1=LK(K)+KK 
RZ(K+1)=Z(K1+1) 
KK=K1 


17 COMDSNOE 


DO 778 
778 ze 1) Rx (141) - RX(I) 
DO 779 J= 


7 

779 243) =RY (J+1)-RY(J) 

DO 780 K=1,MK 

780 Z2Z(K)=RZ(K+1)-RZ(K) 
13 CONTINUE 


WRITE(6, 0 /I=1,MI+1), ee ,J=1,MJ+1), (RZ(K) ,R=1,MK+1 
I 


=), Ml) aeene= ie 


MJ). (22 CR =e 


S Z 
103 Foes / SK THE POSITION OF ZONE BOUNDARY IN EACH DIRECTION if 
(ery! 7.5 '5(1X,F6.3),1X, 'Y=',4(1X, F6.3),1X, 'Z= 
: ae Bx. ate SIZE OF THE ZONE IN EACH DIRECTION, 
oo / oe 41, F6.3),1X, 'Y=',3(1X,F6.3),1X,'Z=',3(1x,me.3 
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a F6.3) 


MOO MAM G7 O) 


O? 


AAAMAANAATM ANNAN 


AAAMHM 


*AkX DEFINE THE NUMBER OF CELLS IN EACH ZONE, WHICH WILL ALSO BE USED 
AS THE AREA OF EACH ZONE WITH MULTIPLICATION OF UNIT AREA OF CELL 
zAKX REGION 1 AND 2, (L & R), NJ*MK ZONES 


ISUM1=MREGN1 
ISUMZ=NREGN2Z 

DO 977 J=1,MJI 

DO 977 K=1,MK 

BS UT SUrit] 
ISUM2Z=ISUM2+1 

ae erat 
AREA( ISUM2)=AREA(ISUM1 

o77 CONTINUE 


*AKK REGION 3 AND 4, (RE * F), MI*MK ZONES 


ISUM1=MREGN3 

ISUM2=MREGN4 

DO 978 I=1,MI 

DO 978 K=1,MK 

ISUM1=ISUM1+ 1 

ISUM2=ISUH2+ 1 

eee) git) *27 (8) 

AREA( ISUHM2)=AREA(ISUM1 
978 CONTINUE 


zxKX REGION 5 AND 6, (B & T), MI*MJ ZONES 


ISUM1=MREGNS 
ISUM2=MREGN6 

DO 979 I=1,MI 

DO 979 J=1,MJ 
ISUM1=ISUM1+ 1 
ISUM2=ISUM2+ 1 

oo are ars S08 
AREA( ISUM2)=AREA(ISUM1 

979 CONTINUE 


WRITE(6,50) (1,AREA(I),I=1,NZ) 
DOmeenercon,'T =',13,3K,'AREA =',F5.1,! FT**2') 


**X CALCULATE THE WALL ZONE TO WALL ZONE VIEW FACTOR 


RRAKRKRAARKRARARKRRKRKRKRKRKRKRRAKRKRKRKRARKRRKR 


CALL WALL 
RARKKARRAKKKKKKKKKKKAAKKKAKKAKKK 


KARRKKRRARKRRKRKRKRRRKRRKRRRRKRKRKRRKRKRKRRARKARKRKRRRRRARRRKRRKRRRARKRRERRARKKRAKKRKRAKKARKKE 


come WatRD STEP IS TO 
*XX CALCULATE THE COEFICIENTS OF THE MATRIX FOR THE SYSTEM OF SURFACE 


RADIATIVE FLUX EQUATIONS 
RRARAKKRARKARAKAKAARKKA KK AKAKKKAKKAKAAKAKKKAAAKKKAKKKAARKKRARRKAAKAAKAKKKARARRER 


DO 405 I=1,NZ 

DO 405 J=1,NZ 

Vale (I,J)=0. 
405 CONTINUE 


RARKKKARAAKKAKKAKKKAARKKKAAAKKKAKKAKKAKKKAKKAKRAAKKAARKAKARAAKARARAKAKRAARKAKARKKE 
oe see ieee > —,R,RE,F,B,T 


KSM1=MERGN1 
DO 421 J=1,MJ 
DO 421 K=1,MK 
KSM1=KSM1+1 
KSM2Z=MREGN2 
KSM3=MREGN3 


23 


KSM4=MREGN4 
DO 422 JJ=1,MJ 
DO 422 KK=1,MK 
KSM2=KSMN2+1 
VE ro peut 
VEER esliZ, Kstil 

422 CONTINUE 
DO 52276 [i= laa 
DO 522 KK=1,MK 
Ks =Koris =i 
KSM4=KSM4+1 
VEMAR( KSMI Ksi3 
VEFMXR(KSM1 ,KSM4 
VEMAR CKSits , KsMt 
VEMXR(KSM4,KSM1 

522 CONMIUE 
KSM5=MREGN5 
KSM6=MREGN6 
DO 423 II=1,MI 
DO 423 JJ=1,MJ 
KSM5=KSM5+1 
KSM6=KSM6+1 
Vile (KS aeSits 
VFMXR(KSM1,KSM6 
VEMER( KSMSehsiit 
VEMXR(KSI16 ,KSM1 

423 CONTINUE 

421 CONTINUE 

C 
C 4% REGCRONEZ a) hy oun 


c 

KSM2=MREGN2 
DOR Ze sa ig 
DO 428 K=1,MK 
KSM4=MREGN4 
KSM2=KSM2+1 
DO 429 II=1,MI1 
DO 429 KK=1 ,MK 
KSM4=KSM4+1 
Vee cua eee 
VEMXR(KSM4,KSM2 

429 CONTIN 
KSMS5=MREGN5 
KSM6=MREGN6 
DO 430 I1=1,MI 
DO 430 JJ=1,MJ 
KSM5=KSM5+1 
KSM6=KSM6+1 
VEMXR(KSM2,KSM5 
Viens Z , KSM6 
VEMSR (ieSiii>, Ksri2Z 
VEMXR(KSM6 ,KSM2 

430 CONTINUE 

428 CONTINUE 


C 
C wh RBCION 3, REMSP - 
€ 


KSM3=MREGN3 
DO 425 [=1,MI 
DO 425 K=1,MK 
Ketisenslis+t 
KSM2=MREGN2 
KSM4=MREGN4 
DO 426 JJ=1,MJ 
DO 426 KK=1,MK 
KstizZ=KsHZae 
VEMAR Gee 
VFMXR(KSM2,KSM3 
426 CONTINUE 


=WVFLR RE 
=WVFRL (JJ; Kigeee 


=WVFLRE(J,K,11,KK 
=WVFLF (J,K,II,KK 
=WVEREL(II,KK,J,K 
=WVFFL (I1I,KK,J,K 


=WVFLB (J,K,II,JJ 
SV (lige oe) 
WPL CLL, JJ .J ak 
=WVE lL ie dd ug. 


) a ee 


arnt ae 
=WVPER( Li Kio 


=WVFRB(J,K,II,JJ 
=WVPRT( dg, Kaa, JJ 
=“WVFBR(II,JJ,J,K 
=METR ( Lidan oak 


PES, = ae 


=WVFRER(I,K,JJ,KK 
=VIV ERR (UU pixie lens 


DOS Zon 11=1, MI 

DO 526 KK=1,MK 

KSM4=KSM4+1 

pens iverae ti tat es 

VFMXR(KSM4,KSM3 )=WVFFRE(II,KK,1I,K 
526 CONTINUE 

KSMS5=MREGN5 

KSM6=MREGN6 

DO 427 II=1,MI 

DO 427 JJ=1,MJ 

KSM5=KSM5+1 

KSM6=KSM6+1 

Welisreolis, KoMS)=WVEREB(I,K,1I1,JJ 

VEMAR( KSM3S,KSM6)=WVERET(I,K,1I1,JJ 

Vn Kol loeclov—niveokn( il,JJ,I,K) 

ht nolenstloy—wvriRe(il,JJ,1,K 
427 CONTINUE 
425 CONTINUE 


c 
C ** REGION 4, F VS -,-,-,-,B,T 
C 


KSM4=MREGN4 
DO 438 I=1,MI 
Demase K=l MK 
KSM4=KSM4+1 
KSMS=MREGNS5 
KSM6=MREGN6 
DO 439 II=1,MI 
Domass JJ=1,MJ 
KSM5=KSM5+1 
KSM6=KSM641 
VFMXR (KSM4, KSM5 )=WVFFB(I,K,II,Jd 
VFMXR(KSM4,KSM6 )=WVFFT(I,K,IIL,JJ 
VEMXR(KSM5 ,KSM4)=WVFBF(II,JJ,1,K 
VEMXR(KSM6 ,KSM4)=WVETF(II,JJ,1,K 
439 CONTINUE 
438 CONTINUE 


¢ 
eee REegON 5, B VS -,-,-,~,-,1 
c 


KSM5=MREGN5 

DO 448 I=1,MI 

DO 448 J=1,MJ 

KSM5=KSM5+1 

KSM6=MREGN6 

DO 449 II=1,MI 

DO 449 JJ=1,MJ 

KSM6=KSM6+1 

cue rene vonvenniat datos 

Peer RONG ,KSMS)=WVFIB(II,JJ,1,J 
449 CONTINUE 
448 CONTINUE 


ie 
Co KRKKKRKKAKKKAKARKAKRKAKKKKKAKAKKAKKAKARKRRKRKAKKAAAAKKKAKAKKKKKAAKAKKAKKKAKKKK 


c 
: AXK VIEW FACTOR MATRIX COEFFICIENT FOR HEAT SOURCES 


DO 301 M=1,NHSZ 

LZ=MZ+M 

ISS=0 

DO 302 I=1,6 

IS(I)=LTYPE(M,1) 

ISS=ISS+1S(T) 
302 CONTINUE 

SN=ISS 

MII=MIIZ(M 

MIJ=MJIZ(M 

MKK=MKRKZ(M 

MIIM=MII-1 


AAAANITM AMA”AM 


C 
c 
C 


MJJM=MJJ-1 
MKKM=MKK- 1 


MIIP=MII+1 
MIJP=MJIJ+1 
MKKP=MKK+1 
IP=ITHIN(M 
JP=JTHIN H 
KP=KTHIN(M | 
DO 304 J=1,MJ 
DO 304 K=1,MK 
VFHSL(J,K)=0. 
VFLHS(J,K)=0. 
VFHSR(J,K)=0. 
VFRHS(J,K)=0. 

304 CONTINUE 
DO 305 I=1,MI 
DO 305 K=1.MK 
VFHSRE(I,KS=0. 
VFREHS(I,K)=0. 
VFHSF (I. K)=0. 
VFFHS (1,.K)=0. 

305 CONTINUE 
DO 306 I=1,MI 
DO 306 J=1,MJ 
VFHSB(I,J)=0. 
VFBHS(I.J)=0. 
VFHST(I,J)=0. 
VETHS(I.J)=0. 

306 CONTINUE 


wniaets 207) M,MII,MJJ,MKK,ISS, (IS(I),I=1,6) 
307 FORMAT(//,5X,'HEAT SOURCE #',12,//, 
& 5X,'IT IS LOCATED AT MII =',12,2%,'M@d =', 1292x, 'MKKO =") eee 
& 5X 'NUMBER OF SURFACES ON THIS HEAT SOURCE IS ',12,//, 
& 5X, 'THE SURFACE TYPE LTYPE : =',612,//) | 


xKX CALCULATE VIEW FACTOR BETWEEN HEAT SOURCE AND ALL WALL ZONES 
KAKKKKAKKAKAKARKAKKARKAKAK KAKA ARARRARARARARARARKARK 


CALL HSTWAL(IS K6S ,1P,JP,KP) 
KRRAKERRARKRRKRRAERERARERARRAKRKAKRAKRRRKAKKERKAKARR 





KK REGIC eens VS Lok ke ost 
RAK WS Seen soge 


KSM1=0 

KSM2Z=MREGN2Z 

DO 401 J=1,MJ 

DO 401 K=1,MK 

KSM1L=KSM1+1 

KSM2=KSMZ+1 

VFMXR(LZ,KSM1)=VFHSL(J,K)/SN 

VEFMABCKSM1 ,LZ)=VELHS(J,K)/Sm 

VFMXR(LZ,KSM2)=VFHSR(J,K)/SN 

VFMXR(KSM2,LZ)=VFRHS(J,K)/SN 
401 CONTINUE 


wrareyo(s) iS isis, 152 jz 


KSM3=MREGN3 

KSM4=MREGN4 

DO 402 I=1,MI 

DO 402 K=1,MK 

KSM3=KSM3+1 

KSM4=KSM4+1 

VFMXR (LZ, KSM3)=VFHSRE(1I,K)/SN 


124 


VFMXR(KSM3 ,LZ)=VFREHS(1I,K)/SN 
VFMXR(LZ,KSM4 See nan 
VEMXR(KSM4,LZ)=VFFHS(1I,K)/SN 








402 CONTINUE 
c 
Meee Ho VS T & B 


ec 

KSM5=MREGNS 

KSM6=MREGN6 

DO 403 T=1,MI 

DO 403 J=1,MJ 

KSM5=KSM5+1 

KSM6=KSM6t1 

VFMXR(LZ,KSM5 )=VFHSB(I,J)/SN 
VFMXR( KSM5,LZ)=VFBHS(1I,J)/SN 
VFMXR(LZ,KSM6)=VFHST(1I,J)/SN 
Vein sMe,bZ)=VFTHS(1,J)/SN 

403 CONTINUE 


301 CONTINUE 


RAKRAKKAKKAKAKARKKKAARKRKKARKAKKRKKAKKKKKAKKRKKRARARARRAKKRRARRKRRKRRKRRAKRRARARRARRRRARR 


ese a) 8 « 8 F os 8 Uhl Ul UCU le [el el lel UelUmelUll lll lll ll el lt 


Pte en ees ss ee el US ll le ee et Pe ee em le ell CU lle lL el COU e_w ll OD 


AMAAAIAM OA 


DO 559 N=1,NHSZ 
LZ=MZ+N 
ey 30°) N,LZ 
560 FORMAT(/,5X,'HEAT SOURCE ZONE #',12,'; THE INDEX NUMBER IS',1I4,//) 


DO 120 I=1,NZ 
120 SMXVFW(I)=0. 
aa 
558 FORMAT(//,5X,'SUMMATION OF VIEW FACTOR MATRIX COEFFIENT',//, 
c eet ONE ZONE TO ALL OTHER ZONES EXCEPT THE HEAT SOURCE',/ 
& '(2). ONE ZONE TO ALL OTHER ZONES INCLUDES: THE HEAT SOURCE! ,//) 
DO 550 I=1,NZ 
DO 557 J=1.NZ 
IF(J.LE.MZ) SMXVFW(1)=SMXVFW(1I)+VEMXR(I,J) 
SMXVFH(1I)=SMXVFH(1)+VEMXR(I,J) 
557 CONTINUE | 
Meteo I ,SMXVFW(I) ,SMXVFH(I) 
553 FORMAT(5X,'I =!,13,2E16.4) 
550 CONTINUE 


AG . 
562 FORMAT(/,4X,'VF ; HS TO WALL (1)',6X,'VF ; WALL(I) To HS',//) 


SUM1=0. 
SUM2=0. 
Don o2isl=leMZ 
SUM1=SUM1+VEFMXR(I,LZ 
SUM2=SUM2+VFMXR(LZ,I 
ee) Sd) RELL 
783 FORMAT(10X,'I =',13,2E15.4 
782 CONTINUE 
a ae N,SUM1 ,SUM2 
784 FORMAT(3X,'SUMMATION OF VIEW FACTOR FROM ALL WALL ZONES TO ! 
5 ena souLer te) 02,' THE VFMAR(I,LZ)- =',£14.4,/, 
& 3X,'SUMMATION OF VIEW FACTOR FROM HEAT SOURCE TO ALL WALL ', 
& 'ZONES,'!,8X,!' VFMKR(LZ,1I);!,E14.4,/) 


AK SMKVFF: SUMMATION OF VIEW FACTOR MATRIX 


/ 


*XX VIEW FACTOR FROM HEAT SOURCE TO WALL ZONES; CALCULATED FROM 
SURFACE AREA EXCHANGE MEHTOD 


AANMAMA 


Zs 


Ci Gr 0) 


MANAANANGA 


787 FORMAT 3X, 'VIEW FACTOR FROM HEAT SOURCE TO WALL ZONES ',/,3X, 
& '(1) CALCULATED FROM WALL TO HEAT SOURCE RECIPROCAL METHOD',/, 
& 3X,'(2) CALCULATED FROM FORMULATION DIRECTLY' ,//) 
SMXVFF=0. 
DO 552 I=1,MREGN3 
AA=VEMKXR(1I,LZ)*AREA(1)/AREA(LZ) 
SMXVFF=SMXVFF+TAA 
BB=VFMXR (LZ ,I) 
WATER (6.788) | 1,AA,BB 
788 FORMAT(5X,'I =',13,2X,E13.4,2X,E13.4) 
552 CONTINUE 
DO 555 I=MREGN3+1,MREGNS 
AA=VEMXR(1,LZ)*AREA(I)/AREA(LZ) 
SMKVFF=SMXVEF+AA 
BB=VEMXR(LZ,1I) 
WRITE(6,788) I,AA,BB 
555 CONTINUE 
DO 556 I=MREGN5+1 ,NZ-1 
AA=VEMXR(1I, LZ) *AREA(1) /AREA(LZ) 
SMXVFF=SMXVFF+AA 
BB=VFMXR(LZ,I) 
WRITE(6,788) 1I,AA,BB 
556 CONTINUE 
WRETE(6 807) SMXVFF 
807 FORMAT(/,5X,'SUMMATION OF VIEW MATRIX COEFF. FROM HEAT SOURCE', 
& 'TO ALL WALL ZONES, SMXVFF =',£11.4,/) 
559 CONTINUE 
WRITE § 351} 
WRITE (6,801 
801 FORMAT(/,5x,' (J,K,(SWVFL (J,K),K=1,MK),J=1,MJ)',/) 
ae ,809) ((J,K,SHVEL € K) R=1,MK),J=1,MJ) 
809 FORMAT(214,1PE10:2) 
hay ,802) 
802 FORMAT(/,5X,' (J,K, (SWVFR(J,K),K=1,MK) ,J=1,MJ)',/) 
WRITE(6, B03) 6 ‘K, SHVFR(J,K),R=1,MRK) ,J=1,MJ) 
WRITE (6,803 
803 FORMAT(/,5X,!' (I,K, (SWVFRE(I,K),K=1,MK),I=1,MI)',/) 
WRITE(6, oa "SWVFRE(I,K),K=1,MRK) , 1=1,MI) 
WRITE (6,804 
804 FORMAT(/,5X,' (1,K,(SWVFF (I,K) ,K=1,MK),I=1,MI)',/) 
WRITE(6, eee) (1K Sime (T,K) ,K=1,MRY, fata) 
WRITE(6,805 
805 FORMAT(/,5xX,' (1,J,(SWVFB (I,J),J=1,MJ),I=1,MI)',/) 
WRITE (6, HS ‘J,SHVEB (1,35) J=1 a) f= 
WRITE (6,806 
806 FORMAT f SX, a (1,3) J=1gMO ete 
WRITE(6,809)((1,3,SWVFT (I,J) ,J=1,MJ),1=1,MI) 
551 FORMAT(/,2X,'SUMMATION OF VIEW FACTOR') 
xk SAVE DATA ON A DISK FILE 
WRITE(9) 
& IREGN1, IREGN2,IREGN3, IREGN4, IREGN5, IREGN6, IREGN7, 
& MREGN1 .MREGN2,MREGN3,MREGN4 , MREGNS , MREGN6 , MREGN7, 
& WC,DC,HC,NI,NJ,NK,AXY,AYZ,AZX, 
& MIIZ.MJJZ,MKKZ,MI,MJ ,MK,LTYPE ,MZ,NHSZ,NZ,LI,LJ,LK, 
& ITHIN, JTHIN, KTHIN, IHSB, JHSB, KHSB ,NHSW, NHSD, NHSH, VFMXR, AREA 
WRITE(6,773) 
7173 a: 'VIEW FACTOR MATRIX®AT' ,//5X,'1,@0,VPMER(1, J), J=le Nee 
& 
M=1 
J=1 


Weel es 483 ,787) 


meer er Gra) Gi) CY OY CO) 0109 029 -) 


774 


~~] 
~~] 
cn 


fa 
faa 


MZ=NZ/8 

Wome Wi i=1 , NZ 

CONTINUE 

IF(M.GT.MZ) GO TO 775 

WRITE(6,772) I,(K,VFMXR(I,K) ,K=J,J+7) 

J=I+8 

M= Hel 

GO 74 

WRITE (6, 772) I,(K,VFMXR(I,K) ,K=J,NZ) 
=a 

= 1 

CONTINUE 

FORMAT(1X,'I=',13,8 (' J=!',13,1PE8.1,','),/) 


Syee 
END 
SUBROUTINE WALL 























COMMON/BL3/ VFMXR(67,67),SMXVFW(67) ,SMXVFH(67) 

COMMON/BL4/ WVFLR(3,3,3,3),WVFLRE(3,3,4,3) ,WVFLF(3,3,4,3), 
& WVFLT(3,3,4,3),WVFRRE(3,3,4,3),WVFRF(3,3,4,3),WVFRB(3,3,4,3), 
PerrRT(3,3,4,3),HVERL (3,3,3,3),WVFFL(4,3.3,3),WVFFB(4,3.4.3). 
& WVFFT(4,3,4,3) ,WVFFRE(4,3,4,3), WVFFR(4.3,3,3),WVFBT(4.3,4.3), 
& WVFBL(4,3,3,3),WVFBRE(4,3,4,3) WVFBF(4,3,4,3), WVFBR(4,3.3,3). 
& WVETL(4,3,3,3) WVFTRE(4,3,4,3) WVETF(4,3,4,3) ,WVFTR(4,3,3,3),. 
a ees (2374/3) WVERER(4,3,4,3), WVFRER(4,3,3,3),WVFTB(4,3.4,3), 
& WVFREL(4,3,3,3),WVFREB(4,3,4,3),WVFLB(3,3,4,3) 

COMMON/BLS5 
& VFHSR(3,3),VFHSF(4,3 ieee) Vast (4.3), ven sat 3), 
& VFRHS(3,3),VFFHS(4,3),VFREHS(4,3) ,VFTHS(4,3).VFBHS(4,3), 
& VFHSL(3,3),VFLHS(3,3 

COMMON /BL6/ VFLHT(3,3),VFRHT(3,3),VFFHT(4,3),VFREHT(4,3), 
& ee 3) UERHR(S2) Vameans4, 3 eo 2) 
& VFLHL(3,3),VFFHL(4,3),VFREHL(4,3),VFTHL(4,3),VFBHL(4,3)., 
& VFLHRE(3,3),VFRHRE(3,3)., VREHRE(4,3) ,VFTHRE(4,3) , VFBHRE(4,3), 
& VFLHF (3,3 VERSE (3,3) -VEENEG3. 3) VETHF(4, 3) VFBHF (4,3) 
& VFLHB(3,3),VFRHB(3,3),VFFHB(4,3),VFREHB(4,3),VFBHB(4,3), 
Eta (4 3 

COMMON /BL7/ VFHTL(3,3),VFHTR(3,3),VFHTF(4,3),VFHTRE(4,3), 
& 3) rt STs VEURT A 3 eee 3): 
& VFHLL(3,3),VFHLF(4,3),VFHLRE(4,3),VFHLT(4,3).VFHLB(4.3), 
& VFHREL(3,3),VFHRER(3,3),VHRERE(4,3) ,VFHRET(4,3),VFHREB(4,3), 
SEE L (3.3 GEnER(S, 3) VEHEE(S, 3) venET (4 3) VFHFB (4,3) 
& VFHBL(3,3),VFHBR(3,3),VFHBF(4,3),VFHBRE(4,3),VFHBB(4,3), 
& VFHTT(4 3 : 

COMMON /BL8/ X(22),¥(18),Z(18) ,NOD(22,18,18), 
& RX(5),RY(4) ,RZ(4) ,AREA(67) ,Z2X(5),2¥(4) .22(4) 

4 


COMMON /BL9/ SWVFRE(4,3), SWVEL(3, 3) ,SWVFR(3,3),SNVFF(4,3), 
& SWVFT(4,3),SWVFB(4,3) 
COMMON /BL10/ NZ,DX,DY,DZ,DXY,DYZ,DZX,WC,DC,HC 


COMMON /BL1/ NI,NJ,NK,NIM1,NJM1,NKM1,NIM2,NJM2,.NKM2, 
See MK MIT, MJT /MKK POG ‘MIP MIM MIP, MKM pune 
& MIIM /MIIP, MJJM , MJIP /MKKM /MKKP, 
& IREGN1 , IREGN2, IREGN3, IREGN4, IREGNS ,, ILREGN6, IREGN7, 
& MREGN1,MNREGN2,MREGN3 ,MREGN4,MREGNS ,MREGN6 , MREGN7 


COMMON /BL2/ JB,IE,IBM1,IBP1,IEM1,IEP1, 
& Servo ese JBP)] JER IEP). 
& hehehe KEPL KEM KEP] 


COMMON/BL11/ MIIZ(9), ae) /MKKZ(9),IS(6),LTYPE(9,6), 
& LI(9),LJ(9),LK(9) ,AYZ(9) , AXY ay Maz 9) 
& NHSZ, ITHIN(9) , JTHIN(9) , RTHIN(9 


iy 


& IHSB(9),NHSW(9),JHSB(9) ,NHSD(9) , KHSB(9) ,NHSH(9) 


KKEAKRKAKKKKARAKAKAKKKRKEKRAAAKKRRARARKKKKRKKRAKRRRKRRRARAKRRRRKRRRRAKKRKRRRRKARKKRRERE 


AAKX WVE-- VIEW FACTOR BETWEEN TWO WALL ZONES 
SWVF-- SUMMATION OF VIEW PACTOR FROM ONE WALL ZONE [TO AEE OTe 
WALL ZONES 
ARK THE VIEW BACTORS BETWEEN TANK INTERIOR WEEL Z@iias 


*’xkk 3 PAIRS OF PARALLEL WALLS INSIDE THE TANK 
1.* LEFT WALL VS RIGHT WALL, (L VS R) 


GHZ=RX (MI+1)-RX(1) 
DOP 500) J=1. lid 
DO 500 K=1,MK 
DO 500 JJ=1,MJ 
DO 500 KK=1,MK 
DO 4 L=1,NHSZ 
IF(LTYPE(L,1).NE.1) GO TO 5 
IF(J .NE. MJJZ(L GO TO 4 
IF(K .NE. MKKZ(L)) GO To 4 
IF (i NEV IZ(L)): COenera 
IF(KK.NE. MKKZ(L)) GO TO 4 
GO TO 500 

4 CONTINUE 

S CONTINUE 
JP1I=J+1 
KP1=K+1 
JIPI=JJI+1 
KKP1=KK+1 
DDD=PARLEL(RZ(K), Pe RY(J), RY(JP1) pRE( JJ) ,RY(JJP1) Race 

& RZ(KKP1) , GHZ) *GHZ*GHZ 

WVFLR(J,K,JJ, ne AY 


ANOAOAAAMNAMAAANM 


WVFRL co RK, J ,K)=DDD/ (ZY (JJ )*2ZZ (Re) ) 
SWVFL (J /K) serene K) tWVFLR(J,K,JJ, ? 
SWVER ape KK)=SWVFR(JJ,KK)+WVFRL IJ KK, J 7s 





500 CONTINUE 


WRITE(6,51) 
S51 FORMAT(2X,'J ,K ,SWVFL ( J, K) *4 JJ,KK,WVFLR (J,K,JJ,KK), 
& 'WVFRL (JJ,KK,d,K), SWVFR (JJ,KK)',/) - 
DO 52 J=1,Md 
DO 52 K=1,MK 
WRITE(6, 53) J ,K pSWVEL (137 K) 
53 FORMAT(2X,' J=',13, (13,' SWVFL =',1PE1 
WRITE(6,54) ((JJ, eR re’ ( 3, K doen WERE (88, KK, J, RB), 
& SWVFR (JJ KK) ,KK=1,MK) ,JJ=1,MJ) 
54 FORMAT(213,3E14.4) 
52 CONTINUE 


C 
C 2.* REAR WALL VS FRONT WALL, (RE VS F) 
G 
GH2= A te Re) 
Son Bel Mi 


DO 501 Ke 1 as 
DO 501 a a 
DO 501 KK=1,MK 
DO 6 L=l /NHSZ 
EF LTYPE(L, SNE eGo. LOmr 
IF(I .NE. MIIZ(L GO TO <6 
IFC K aNS ieee GO TO 6 
LF A ali seater aici GO TO 6 
ES «etic Uk GOR 1On 6 
Gor ro Sel 

6 CONTINUE 

7 CONTINUE 
Pera ied 
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KP1=K+1 
i = ae 1 
KKP1=KK+1 
DDD=PARLEL(RZ(K), RZ (KP1) RROD ye RX(IP1),RX(I1),RX(IIP1),RZ(KK), 
& RZ(KKP1) ,GHZ)*GHZ*GH 

WVFREF(I,K,1I1,KK =BDD/{ (Rx (TP). RX(I))*(RZ(KP1)-RZ(K))) 
WVFFRE(IL,KK,1,K)=DDD/((RX(IIP1)- RK (TI) ) 7 (RZ(KKP1)-RZ(KK) )) 
SWVFRE(1,K) =SWVFRE(I,K) merece is* Pi KK 
SWVFF(II,KK)=SWVFF(I1,KK)+WVFFRE(II,KK,1,K 

501 CONTINUE 


WRITE (6,55) 
55 FORMAT(2X,' I, K,SWVFRE( I, K) ** II, KK,WVFREF(I,K,II,KK), 
& 'WVFFRE(II,KK,I,K), SWVFF (II,KK)',/) 
DO 56 I=1,MI 
DO 56 K=1,MK 
WRITE(6, 57) | ee SUVERE( I K) 
57 FORMAT(2X,' I=',13,' K=!,13,! SWVFRE=',1PE10.2 
WRITE(6,54) ((II,KK,WVFREF ( 7 K,II,KK), ae ay Khe tek), 
& SWVFF (II,KK),KK=1,MK), II=1,M1) 
56 CONTINUE 


C 
fee TOP WALL VS BOTTOM WALL, (T VS B) 
C 


GHZ=RZ (MK+1)-RZ(1) 
DO 502 I=1,MI 
DO 502 J=1,MJ 
IP1L=I+1l 
JP1=J+1 
DO 502 II=1,MI 
DO 502 JJ=1,MJ 
DO 8 L=1,NHSZ 
Me DTYpe(L,3).NE.1) GO To 9 
Bal (NE. MIIZ(L)) GO TO 8 
tad Ne. MJJZ(L)) GO To 8 
Beeline. MIIZ(L)) GO To 8 
Baie NE. MJJZ(L)) GO TO 8 
Cee. 502 
8 CONTINUE 
9 CONTINUE 
IIP1L=II+1 
JIP1L=JJ+1 
DDD=PARLEL(RY(J), ae Page EPL) RxCEL)RX(LIP1),RY(JJ), 
& RY (JJP1) ,GHZ)*GHZ*G 
WVFBT (I,J, fs): ob ea az 


WVFTB (I1L,JJ,1,J)=DDD/(2X(I1)*ZY(JI)) 
SWVFB ( I, J\=SHVEB | io ae: 5s dT) 
SWVFT (II, JJ)=SWVFT (II,JJ)+WVFTB (II,J33,1,g 


5902 CONTINUE 


a: Bic)) 
Optwemiex 1, J,SuVEB ( 1, J) ** 11,J3,WVEBT (1,J,11,J3), 
& 'WVFTB (II,JJ,I,J), SWVFT (I1,J3)',/) 
DO 111 I=1,MI 
Bo lid J=1 tg 
WRITE(6, 112) tT, J7SWVne OC laa) 
112 FORMAT(2X,' I=',13,' J=',13,' SWVFB =',1PE10.2 
WRITE(6,54) ((II,JJ,WVFBT ( J,II,JJ),WVFTB ne ce, 
& SWVFT (II,JJ),JJ=1,MJ), II=1,MI) 
111 CONTINUE 


*xAX 12 PAIRS OF PERPENDICULAR WALL INSIDE THE TANK 
AKX | === LEFT WALL VS BOTTOM (L VS B) 

DOs SOeuU— iil J 

DO 503 K=1,MK 


DO 503 II=1,MI 
DO 503 JJ=1,MJ 


QMNAMA”ANA 
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GH1 =RX(II) 
GH2 =RX(II+1) 


6Vi 2RY( JJ) 
GV2 =RY(JJ+1) 
SVl =RY(J) 
SV2 =RY(Jt1) 
SH1 =RZ(K) 


SH2 =RZ(K+1) 

DDD =PERPND(SH1,SH2,SV1,SV2,GV1 ,GV2,GH1 , GH2) 

WVELB 11 BOD | Seas mes oar 

WVEBL(II,JJ,J,K)=DDD/ ((GH2-GH1 )*(GV2-GV1 

SWVFL(J,K) me 4) oro o K.11 ap 

SWVFB(II,JJ)=SWVFB(II,JJ)+WVFBL(II,JJ,J,K) 
503 CONTINUE 


C 
WRITE (6,59) 
59 FORMAT(2X,' J, K,SWVFL ( J, K) ** II,JJ,WVFLB (J,K,II,JJ), 
& 'WVBBL (11,JJ,J3,K), SWWEB (11,JJ)")/ 
DO 60 J=1,MJ 
DO 60 K=1,MK 
WRITE(6, 61) oe SWVEL Ce 
61 FORMAT(2xX,' J=',13, .13,' SWVFL =',1PE10.2 
Weime(6 54) ((11,dJ, iveue ( tw, K,1I,JJ) oRee ble Id, J, San 
& SYVFB (II.JJ),JJ=1,MJ),II=1,HI) 
60 CONTINUE 
c 
C *** 2 === LEFT WALL VS REAR WALL (L VS RE) 
C 
DO 504 J=1,MJ 
DO 504 K=1,MK 
DO 504 II=1,MI 
DO 504 KK=1,MK 
GHl =RX(II) 
GH2 =RX(II+1) 
GVl =RZ(KK) 
GV2 =RZ(KK+1) 
SH1 =RY(J) 
SH2 =RY(J+1) 
SV1 =RZ(K) 
SV2 =RZ(K+1) 
DDD =PERPND(SH1,SH2,SV1,SV2,GV1,GV2,GH1 ,GH2) 
WEL nt as See “SHL (S¥2: ay 
WVEREL(II,KK,J,K)=DDD/( (GH2-GH1 )*(GV2-GV1 
SWVFL(J,K) | =SWVFL(J,K) pa TC K ta ek 
SWVFRE(I1,KK)=SWVFRE (II ,KK)+WVFREL(II,KK,J,K 
504 CONTINUE 
WRITE (6 ,63) 
63 FORMAT(2X,' J, K,SWVFL ( J, K) ** II, KK, WVFLRE(J,K,II,KK), 
& 'WVFREL(II,KK,J,K), SWVFRE(II,KK)',/) 
DO 64 J=1,MJ 
DO 64 K=1,MK 
WRITE(6 ,66) J, K,SHVEL ( J, K) 
66 FORMAT(2X,' J=',13,' K=!,13,' SWVEL =',1PE10.2 
WRITE(6,54) Ctr. KK , WVELRE ( ‘y, K II Re. ar ee KK, J om 
& SWVFRE(II,KK) ,KK=1,MK),1II=1,MI) 
64 CONTINUE 
C 
C Ak 3=== LEFT WALL VS FRONT WALL, (L VS F) 


DOs 505. J—iitd 
DO 3505) Ka) ik 
DO 505 II=1,MI 
DOL 505. KK=ainkK 


GHame=R X(T) 
GH2 =RX(II+1) 
Gu =6 (KK) 


GVe =Rz ee 
SH2 =RY(MJ+1)-R¥(J) 





QAM 


AAD 


SH1 =RY(MJ+1)-RY(J+1) 
SV1l =RZ(K 
SV2 =RZ(Kt1) 





DDD =PERPND(SH1,SH2,SV1,SV2,GV1,GV2,GH1,GH2) 

Wie we tt, KK BpDD/,{ {SH2- SHI) oe =) 

WVFEFL iy KK, 5 »K)=DDD/ ( (GH2-GH1 GV Z-GV | 

SWVFL 3,K) et) ee aes 

SWVFF(II,KK)=SWVFF(II,KK)+WVFFL(II,KK,J,K 
505 CONTINUE 


WRITE(6, 70) 
70 FORMAT (2X, | J, K,SWVFL ( J, K) ** IT, KK,WVFLF (J,K,II,KK), 
& 'WVFFL (II,KK,J,K), SWVFF (Tisktier ./) 
DO 67 J=1,MJ 
DO 67 K=1,MK 
WRITE(6, 69) Sik ae ( oF K) 
69 FORMAT(2X,!' J=',1 -I3,' SWVFL =',1PE10.2 
WRITE(6,54) ((II,KK, inte ( Seno inn Ray WVFFL di ieee aa); 
& SWVFF (II,KK),KK=1,MK),II=1,MI) 
67 CONTINUE 


pee 4 === LEFT WALL VS TOP WALL, (L VS T) 
DO 506 J=1,MJ 
DO 506 K=1,MK 
DO 506 II=1,MI 
DO 506 JJ=1,Mu 
Gal =RxX(II 
GH2 =RX(II+1) 
Gal =RY(3J) 
Ge —=RY(JJ+1) 
Bl =Ry id 
SVZe=RY(J+1) 
SH2 =RZ et) -Bg K) 
SH1 =RZ(MK+1)-RZ(K+1) 
DDD =PERPND(SH1,SH2,SV1,SV2,GV1,GV2,GH1,GH2) 
WVFLT(J,K,II, ie Se ae Sv} 
ume LI, 30 ,J.,.K )=DDB/ ( (GH2-GH1 )*(GV2-GV1 
SWVFL(J,K) =SWV eer ee? Reale 
Vom IL , JJ )=SWVET(I1,JJ)0VETECIT, Jo 0K 
506 CONTINUE 
WRITE (6,71) 
71 FORMAT(2X,' J, K,SWVFL ( J, K) ** IT BS Piveno (J,K,11,30), 
& 'WVFTL (II,JJ,3,K), SWVFT (II,JJ)',/) 
be go J=1, Me 
DO 72 K=1,MK 
WRITE(6, 74) Tw, Ky SWVFL ak 
74 FORMAT(2X,' J=',13,' K=!,13,!' SWVFL =',1PE10.2 
WRITE(6, 54) (tt a3. WVFLT ( J, RTL 33), WVFTL ate Dep aK), 
& SWVFL (II JJ) ,J3=1,M3),II=1,MI) 
72 CONTINUE 
Ak § === REAR WALL VS BOTTOM WALL, (RE VS B) 


DO" se [=1,MI1 
DO 507 K=1,MK 
DO 507 II=1,MI 
DO 507 JJ=1,MJd 


GVl =RX(IT) 
GV2 =RX(II+1) 
GH1 =RY(JJ) 
GH2 =RY(JJ+1) 
SV1 =RX(T) 
SV2 =RX(I+1) 
SH1 =RZ(K) 


SH2 SRZ¢K+1) 
DDD =PERPND(SH1,SH2,SV1,SV2,GV1,GV2,GH1,GH2) 
WVFREB(I,K,11,JJ)=DDD/( (SH2-SH1)*(SV2- SV1)) 


lem 


OM) O10) 


AAN 


ee JJ, 1 ge DpD/ ((GH2- GH1)*(GV2-GV1) 
SWVFRE(I,K) =SWVFRE(I, K) UWE aa pe 
SWVFB(II,JJ)=SWVFB(II,JJ)+WVFBRE(II,JJ,1,K 
507 CONTINUE 


WRITE (6,75) 
75 FORMAT(2X,' I, K,SWVFRE( L, K) ** II,JJ,WVFREB(I,K,II,JJ), 
& 'WVFBRE(II,JJ,1,K), SWVFB (II,JJ)',/) 
DO 76 I=1,MI 
DO 76 K=1,MK 
WRITE(6, 78) Toa / SHVERE ( ney 
78 FORMAT(2x,' I="me. I3,' SWVFRE=!,1PE10.2 
WRITE(6,54) ((II,JJ VERER( ike ti . ately. Ii, Tae 
& SYVEB (II.JJ) Od=1, Mo) ie 
76 CONTINUE 











*kk 6 === REAR WALL VS RIGHT WALL, (RE VS R) 
DO 509 I=1,MI 
DO 509 K=1,MK 
DO 509 JJ=1,MJ 
DO 509 KK=1,MK 
GH1 =RY(JJ) 
GH2 =RY(JJ+1) 
GV1 =RZ(KK) 
GV2 =RZ(KK+1 
SH2 =RX(MI+1 Ae 
SH1 =RX(MI+1)-RX(I+1) 
SV1 =RZ(K) 
SV2 =RZ(K+1) 
DDD =PERPND(SH1,SH2,SV1,SV2,GV1 GV2,GH1 , GH2) 
WVFRER(1L,K,JJ, LKK)= DDD) | ares oo ee hee 
WVFRRE(JJ,KK,1,K)=DDD/( (GH2-GH1 )*(GV2-GV1 
SWVFRE(I,K) =SWVFRE(I,K) pS K,Jd,KK 
SWVFR(JJ,KK)= SWVER(JJ, KK )+WVFRRE(JJ,KK,1,K 
S509 CONTINUE - | 
WRITE(6, 79) 
79 FORMAT(2X,' I, K,SWVFRE( I, K) ** JJ, KK ,WVFRER(I,K,JJ,KK), 
& 'WYERRE(JJ,KK,1,K), SWVER (J0/KRK)',/) 
DO 80 I=1,MI 
DO 80 K=1.MK 
 WRITE(6, 82) I, K,SWVFRE( I, K) 
82 FORMAT(2X,' I=',13,' K=!,13,! SWVFRE=',1PE10.2,/) 
WRITE(6,54) ((JJ,KK,WVFRER ( a K,Jd,KK),WVFRRE(JJ,KK, I, K), 
& SWVFRE(JJ,KK),KK=1,MK),JJ=1,MJd) | 
80 CONTINUE 
kkk 7 === REAR WALL VS TOP WALL, (RE VS T) 


DO 508 I=1,MI 
Dow Se) Kat , Mik 
DO 50s si) {he 
DO 508 JJ=1,MJd 


Gilera 1) 
Giz) =p 1141) 
GH1 =RY(JJ) 
GH2 =RY(JJ+1) 
SVi =p 1) 


SV2 =RX(I+1) 

SH2 =RZ agus 8 

SH1 =RZ(MK+1)-RZ(Kt+1) 

DDD =PERPND(SH1, SH2;,SV1,5V2,6V 1 ,GV Zee , GHZ) 

WERE IoK, LL; JI)= ae “SH1)* Bes 8 

WVETRE Tete woe I,K)=DDD/ ( (GH2-GH1 GV2Z-GV1l 

SWVFRE( I K) =SWVFRE(L, K) ee ig eee) 

SWVET(IL,JJ)=SWVFT(IL,JJ)+WVFTRE(II,JJ,1,K 
508 CONTINUE 





WRITE (6,83) 
83 FORMAT(2X,' I, K,SWVFRE( I, K) ** II, JJ,WVFRET(I,K,II,JJ), 
& 'WVFTRE(II,JJ,1,K), SWVFT (II,JJ)',/) 
DO 84 I=1,MI 
DO 84 K=1,MK 
WRITE(6, 86) Sy PRE (We) 
86 FORMAT(2X,' I=',1I3,' K=!,13,' SWVFRE=',1PE10.2 
WRITE (6 
& SWVFT (II,JJ),JJ=1,MJ),II=1,MI) 
84 CONTINUE 


C 
C **k 8 === RIGHT WALL VS BOTTOM WALL, (R VS B) 


e 


DO 512 J=1,MJ 
Dee ol2 K=1,HMK 
Bepsl2 II=1,H1 
DO 512 JJ=1,MJd 


GH2 =RX yee) ot 
GH1 =RX(MI+1)-RX(II+1) 
GV1l =RY(JJ) 

GV2 =RY(JJ+1) 

SV1 =RY(J) 

SV2 =RY(J+1) 

SH1 =RZ(K) 

ee =RZ( K+1) 


DDD =PERPND(SH1,SH2,SV1,SV2,GV1 ,GV2,GH1,GH2 

Weenb(),K,I11, Ee PES aes . a 

WVFBR Tile uae J DOL, (GHZ =e) GV2-GV1 

SaveR( J /K) SaEE iy eer he) 

SWVFB(II »JI)=SWVFB(II,JJ)+WVFBR(II IJ a mi 
Siz CONTINUE 


WRITE (6,87) 
87 FORMAT(2X,' I, K,SWVFR ( I, K) ** II,JJ,WVFRB (1I,K,II,JJ), 
& 'WVFBR (II,JJ,1,K), SWVFB (II,JJ)',/) 
DO 88 I=1,MI 
DO 88 K=1,MK 
WRITE(6, 90) I, K,SWVFR ( I, K) 
90 FORMAT(2X,' I=',I3,' K=',13,' SWVFR =!,1PE10.2 
WRITE (6 
& SWVFB (II,JJ),JJ=1,MJ),II=1,MI) 
88 CONTINUE 


C . 
C *** 9 === RIGHT WALL VS FRONT WALL, (R VS F) 


© 


DO 510 J=1,MJ 
DO 510 K=1,MK 
pO 510 II=1,MI 
DO 510 KK=1,MK 
GH2 =RX te) 


GH1 =RX(MI+1)-RX(II+1) 
GVl =RZ(KK) 

GV2 =RZ(KK+1 

SH2 =RY Hod} -ay 
SH1 =RY(MJ+1)-RY(J+1) 
SVl =RZ(K) 


SV2 =RZ(K+1) 

DDD =PERPND(SH1,SH2,SV1,SV2,GV1 ,GV2,GH1 ,GH2) 

WVFRF(J,K,IL, (RK)= Bee, ene mae hing V1) 

WVFFR(IL,KK,J,K)=DDD/ ( (GH2-GH1 )*(GV2-GV1 

SWVFR(J,K) eat RK) ee, it oR 

SWVFF(II,KK)=SWVFF(II,KK)+WVFFR(II,KK,J,K 
510 CONTINUE 


WRITE(6,91) 
91 FORMAT(2X,' J, K,SWVFR ( J, K) ** II,KK,WVFRF (J,K,II,KK), 
& 'WVFFR (II,KK,J,K), SWVFF (II,KK)',/) 
DO 92 J=1,MJ 
DO 92 K=1,MK 
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54) ((IL,JJ,WVFRET ( 7 Kee JS), ee (Ge ma, I, KY), 


B) (CIE Jd, ane ( 7 K,II,JJ),WVEBR (ff. Moy, Teen), 


WRITE(6,94) J, K,SWVER ( J, K) 
94 FORMAT(2X,' J=',13,' K=',13,' SWVFR =!,1PE10.2 
WRITE(6,54) ((IIL,KK,WVERF ( J, K,II,KK),WVEFFR Ey KK ree 
& SWVFE (II/KK),KK=1,MK) , LI=1,MI) 
92 CONTINUE 


c 
C *** 10 === RIGHT WALL VS TOP WALL, (R VS T) 


c 
DOM 1 J=n Ne 
DO 511 K=1,MK 
DO 511 II=1,MI 
De 511 Jd=i Mug 
GH2 =RX a 


GH1 =RX(MI+1)-RX(II+1) 
GVi =Rigids) 

GV2 =RY(JJ+1) 

SV] =RY(J) 


SV2 =RY(J+1) 

SH2 =RZ ay 

SH1 =RZ(MK+1)-RZ(K4+1) 

DDD =PERPND(SH1,SH2,SV1,SV2,GV1,GV2,GH1 ,GH2 

WVFRT(J,K,II, Pye ee he ae ae 

WVFIR(LL,Jd,3,K)=DDD/ ( (GH2-GH1 )*(GV2-GV1 

SWVER(J,K) SS K) +WVERT(J,K,II,dd 

SWVET(IL,JJ)=SWVET(IL,JJ)+WVETR (II,JJ,J,K) 
511 CONTINUE 


WRITE (6,95) 
95 FORMAT(2X,' J, K,SWVFR ( J, K) ** I1,JJ,WERT (J,K,II,JJ), 
& 'WVFTR (II1,JJ,J,K), SWVBT (Me, dd)", /) 
DO 96 J=1,MJ 
DO 96 K=1,MK 
WRITE(6, 98) J, K, SWVER ( J, K) 
98 FORMAT(2X,' J=',I3,' K=',13,' SWVFR =!,1PE10.2 
WRITE(6,54) ((II, 45. AVERT ( S K,IL,JJ),WVEFTR nee iJ, o, a. 
& SWVFT (II\JJ),JdJ=1,MJ),II=1,MI) 
96 CONTINUE 


C 
C **xx J] === FRONT WALL VS BOTTOM WALL, (F VS B) 


c 
Des S350 iy, Mi 
DOr Soa) K= 1, 1K 
Be Sosa li=l Mi 
De SoS, JJ-1 MJ 
GV1l =RX(ITI) 





GV2 =RX(II+1 

GH2 =RY(MJ+1 — 
GH1 =RY(MJ+1)-RY(JJ+1) 
SV s=Ra 1) 

SV2 =RX(I+1) 

SH1 = RZ(K) 


SH2 = RZ(K+1) 

DDD =PERPND(SH1,SH2,SV1,SV2,GV1,GV2,GH1,GHZ2) 

WVFFB(I,K,I1,Jd So ae oH) svi) 

WVEBF(IL,JJ,1,K)=DDD/( (GH2-GH1 )*(GV2-GV1 

SWVFEF(LI, K) pests ,K) roel K, Ll od 

SUVEB(IL, JJ )=SWVEB(II,JJ)+WVEBF(II,JJ,1,K 
593 CONTINUE 


WRITE (6,43) 
43 FORMAT(2X,' I, K,SWVFF ( I, K) ** II,JJ,WVFFB (1I,K,II,JJ), 
& 'WVFBF (IL,JJ,1,K), SWVFB (II,JJ)',/) 
DO 44 I=1,NI 
DO 44 K=1,MK 
WRITE(6, 46 ) 1 Ke SHVEE (as 
AGEEORRAT(2x.’ I=" 13, (13,' SWVFF =',1PE10.2 
WRITE(6,54) ((II, 43 WVEFE ( 1, K,II 33). WVEBF ay ia, 1 kee 
& SWVFB (II,\JJ),JJ=1,MJ), TI=1,MI) 
44 CONTINUE 


ce 
C *** 12 === FRONT WALL VS TOP WALL, 


Dew leme=1 MI 
Dey) loek=—I kK 


€ 





(F VS T) 


pO 513 II=1,MI 

DO 513 JJ=1,Md 

Cou e( T) 

GV2 =RX(II+1 

GH2 =RY(MJ+1 meaty 

Gn =RY( d+! )-RY (3341) 

SV1 =RX(T) 

SV2 =RX(I+1) 

SH2 =RZ( eae 

SH1 =RZ(MK+1)-RZ(K+1) 

DDD =PERPND(SH1,SH2,5V1,SV2,GV1,GV2,GH1, GH2) 
WVFFT(I,K,IIL, Pie =080/{ (en ah es aay 
WVFTF(II,JJ,1,K)=DDD/ ( (GH2-GH1 )*(GV2-Gv1 
SWVFF(I,K) ee RK) ea ee K,IL,JJ 
SWVFT(IL,JJ)=SWVFT(IL, The ets Pie hk 


913 CONTINUE 


WRITE(6, 47) 
47 FORMAT (2X, ! 


IT, K,SWVFF ( I 


& 'WVFTF (Gigi ad, T oe 


SWVFT (II,JJ)! 


DO 43 I[=1, MI 


DO 48 K=1,MK 


WRITE (6,99) 
99 FORMAT (2% 








WRITE(6,54) ((II,JJ,WVFFT ( I, K,II,JJ),WVFTF eee Dil ee) , 
& aa "fir: JJ) JJ=1,MJ) ,TI=1,M1) 
48 CONTINUE 
RETURN 
END 
SUBROUTINE HSTWAL(NNKSS/ IP, JP, KP) 
CRRARKARKKARKARAAKARKARARRAAKARARKARKARRAERRARARRKRKKE 
E 
COMMON /BL3/ ada eSiae(e7)- / SHEVEH (67) 
COMMON /BL4/ WVFLR(3,3,3,3),WVFLRE(3,3,4,3),WVFLF(3,3,4,3), 
& WVFLT(3,3,4,3),WVFRRE(3,3,4,3), ,WVFRF(3,3,4.3), WVFRB(3,3,4.3 
& WVFRT(3,3,4,3),WVERL (3,3,3,3), WVFFL(4,3,3,3) WVFFB(4,3,4.3 
& WVFFT(4,3,4,3) ,WVFFRE(4,3,4,3),WVFFR(4,3,3,3), WVFBT(4,3,4,3 
& WEBL(4,3,3,3),WVEBRE(4,3,4,3) ,WVEBF(4,3,4,.3) WVFBR(4,3,3,3 
& WVETL(4,3,3,3) ,WVETRE(4,3,4,3) WVFTF(4,3,4,3) WVFTR(4,3,3,3 
is eee iets). Dreads 3 eee ge) TBA 3,4 
& WVFREL(4,3,3,3),WVFREB(4,3,4,3) ,WVFLB(3,3,4,3) 
e 
COMMON /BLS/ 
& VFHSR(3,3),VFHSF(4,3 VEE) a 3), veel: 3), 
& VFRHS(3,3),VFFHS(4,3), VFREHS(4,3),.VFTHS (4,3), VFBHS(4,3), 
‘ & VFHSL(3,3),VFLHS(3,3 
COMMON /BL6/ VFLHT(3,3),VFRHT(3,3),VFFHT(4,3),VFREHT(4,3), 
& ee 2) UERHR(S 3). te eee ee): 
& VFLHL(3,3),VFFHL(4,3),VFREHL(4,3),VFTHL(4,3).VFBHL(4,3), 
& VFLHRE(3,3),VFRHRE(3,3),VREHRE(4,3),VFTHRE(4,3) , VFBHRE(4, 3) 
& VFLHF(3,3 ee ate 2) rere) VEBHF (4,3) 
& VFLHB(3,3),VFRHB(3,3),VFFHB(4,3),VFREHB(4,3),VFBHB(4,3), 
: & VETHT(4,3 
COMMON /BL7/ VFHTL(3,3),VFHTR(3,3),VFHTF(4,3),VFHTRE (4,3), 
iS 3). ee) VEuBRE (4.3 a) vest). 
& VFHLL(3,3),VFHLF(4,3),VFHLRE(4,3),VFHLT(4, 3). VFHLB(4,3). 
& VFHREL(3,3),VFHRER(3,3),VHRERE(4,3),VFHRET (4,3) , VFHREB(4,3) 
& VFHFL(3,3 mee 3) VEREE(S 3}, VFHFT(4,3),VFHFB(4,3) 
& VFHBL(3,3),VFHBR(3,3),VFHBF(4,3),VFHBRE(4,3),VFHBB(4,3), 
; & VEHTT(4,3 





I, K , SWVEF =r, 
Te sleeiTes K=' 73, 
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K) 
SWVFF =' 


EEO 2 


K) *x* aad Puen 1 Ke ee dale) 


(J~ ~ ~ ~~ 


MAAAAAANANANANAAAAANAAANNINNAANAN” 


ANINANIANANANANIAN 


COMMON /BL8/ X(22),Y¥(18),Z(18) ,NOD(22, 
RX(5),RY(4) ,RZ(4) , AREA(67) ,ZX(5) ,ZY 


& 


1318 
(4) 


42(4) 


COMMON /BL9/ SWVFRE(4,3),SWVFL(3,3),SWVFR(3,3),SWVFF(4,3), 
& 


SWVFT(4,3),SWVFB(4, 3) 


COMMON /BL10/ NZ,DK,DY,DZ,DAY , DYZ Dawe ens 
COMMON /BL1/ NI,NJ,NK,NIM1,NJM1 | NR] ONEM2 Size iis 


& 


& MIEIM MiLP MIM, Mo Sei ice 


& 
& 


COMMON /BL2/ IB) IE, 1BM1,IBP1, laa Ga 
JB, JE,JEM1,JBP1,Jeae, Jae, 
KB, KE, KEM, KBP1, Kee hee 


POL WK 


COMMON/BL11/ Me ee 

LI(9) ,LJ(9) , LR 
NHSZ, ITHIN(9) , JTHIN(9) 
IHSB(9) ,NHSW(9),JHSB(9 


DIMENSION NN(6) 


OOo Bie Sly Aaa ee. 


xX THERE ARE 6 TYPES OF SURFACES 


AKK 


AK Te 1S ee Pe 


THs 
Kew 


2ND 
3RD 


4TH 


5TH 
6TH 


FIRST, CALCULATE THE VIEW FACTOR BETWBBIIREACH 


ENCLOSURE . 

eee Eres ERT [TPE Cre the 
“A DIC! LOM. 

TYPE : RiGee Sere OF SER 
ty DIRBCEION. 

TYPE; Rees SIDE SOF j6eE 
-Y¥ DIRBCETGI: 

Tare FRONT Swe OF fe 
+Y DIRBETION. 

TYRE : BOTTOM sibs OF “fue 
=4 DIRE GREG. 

Tyre: er Seta Fee ie 


ra DIRBCIION: 


SOURCE AND WALL SURFACE 


OF SURFACE 


IF(NN(1).EQ.0) GO TO 101 


MITO=MIIP 


/MKKZ(9),1S(6), 
9) ,AYZ(9) ,AXY(9 
KTHIN(9 
) NHSD(9 


re” Ot OL ae Ol ee Ceaee 





LTY Re 
, ALK 


'KHSB(9) , NHSH(9) 


MI ,MJ,MK,MII ,MJJ,MKK,MIM MEP MIM ope 


@. 8) 20 see 


IREGN1, TREGN2Z, IREGN3 , IREGN4, IREGN5, IREGN6, IREGN7, 
MREGN1 ,MREGN2 ,MREGN3 , MREGN4,MREGNS5 ,MREGN6 ,MREGN7 


oon 
9), 


x ’ ® * 


CAN BE CONSIDERED INSIDE ize 


HEAT 
HEAT 
HEAT 
HEAT 
HEAT 
HEAT 


SOURGE, 
SOURGE,, 
SOURCE, 
SOURCE, 
SOURCE , 
SOURCE, 


ie 
LE 
iG 
le 
ae 
ie 


Seas 


SEES 
SEES 
SEES 
SEES 
SEES 


SiDE 


ONLY 
ONLY 
ONLY 
ONLY 
ONLY 
ONLY 


THE 
TRE 
TRE 
TE 
THE 
THe 


OF HEAT 


1... «Pee Si 
2. HE oe 8 
3. Ri Vow 
G. we, Woo ORE 
ees ey ey Si 
i Ome L 
GHZ=RA uae 
SH1L=RY(MJJ 


SH2=RY (MJJP) 
SV1=RZ(MKK) 
SV2=RZ(MKKP) 
DO 5 J=1,MJ 
DO 5 K=1,MK 


C42 


Aaa 


AAT 


AAO 


GH1 =RY(J) 

GH2 =RY(J+1) 

GV1 =RZ(K) 

GV2 =RZ(K+1)- 

DDD =PARLEL(SH1 ,SH2,SV1,SV2,GV1,GV2,GH1, 
GH2, GHZ) *GHZ*GHZ 

Oe ee Alice ais scene 

VFHLL(J,K)=DDD /((SV2-SV1)*(SH2-SH1 


5 CONTINUE 


ee 2) 

621 FORMAT(/,5X,'VFLHL(J,K) ,VFHLL,K=1,MK, J= 1, MJ)',/) 
55°) (( J, K,VELHL(J,K),VFHLL(J,K),K=1,MK) , J=1,MJ) 
602 FORMAT(213,2E12.4) 

=. 8 TO HL 


) 
623 FORMAT(/,5X,'VFBHL(1,J),VFHLB,J=1, MJ 


* 


SH1=RZ(MKK ) 

SH2=RZ (MKKP ) 
SV1=RY(MJJ) 

SV2=RY (MJJP) 

EOul> I=1,MLIM 
GH1=RX ea 
GH2=RA (i oe I) 

mL 


D(SH1,SH2,SV1,SV2,GV1,GV2,GH1,GH2) 
ee Pee enters. cnt} 


ee) | 
SOUP cs Zeoval) (Sh2- ol 


VFHLB 


19 CONTINUE 


cE 


WRITE(6,623 
I=1,MIIM)',/) 
WRITE(6,602) (( I, J,VFBHL(1I,J),VFHLB(I,J),J=1,MJ),I=1,MIIM) 


Tee O eRe 


SH1=RZ(MKP ea: 
SH2=RZ(MKP )-RZ (MRK ) 
SV1=RY (MJJ 

SV2=RY (MJJP ) 

PeyZ1 


D(SH1,SH2,SV1,SV2,GV1,GV2,GH1,GH2) 
ap > (ieee) ieee} 
L,J)=DDD /((SV2-SV1)*(SH2-SH1 


2) -CSnernes 


WRITE (6,625) 


G25 easy fe sane re 2) pe P=) MLM oe 


* 


4. 


WRITE(6,602) (( I, a) ee err) 
RE TO HL 


SH1=RY (MJJ) 
SH2=RY(MJJP) 
SV1=RZ(MKK) 
SV2=RZ(MKKP) 

DO 18 I=1,MIIM 
GH1L=RX et) 


oy 


DDD=PERPND(SH1 ,$H2,SV1,SV2,GV1,GV2,GH1,GH2) 
VEREHL (1 ,K)=DDB/ ( (GU2-8¥ 1). (an 
VFHLRE(I,K)=DDD/((SV2-SV1 )*(SH2-SH1 

MK, I=1,MIIM)'!, 


18 CONTINUE 
Wage (Soe 
I,K) ,VFHLRE(I,K 


627 FORMAT(/,5X, 'VFREHL(1I,K) ,K=1 
WRITE(6,602) (( I, K,VEREHL( 


Pee tril 


SHil=Ry (Mgr mt 

SHZ=By (MIP) RY 

SV1=RZ(MKK 

SV2=RZ(MKKP) 

DO 22 I=1,MIIM 

ea ee 
K 


=I 


M00 


MJJP) 
MJJ) 





ie) 


GH2=RX(MII)-RX(I) 


GH1 , G2 ) 
a 
Sie - Sha 


as, 
FHL 


MAO 


DO 22 K=1,MK 
oy eee 
GV2=RZ(Kt+1) 
DDD=PERPND(SH1,SH2,SV1,SV2,GV1,GV2 
TEER Tt )-0ne) ee 
VFHLF(I,K)=DDD/((SV2-SV1)* 

22 CONTINUE 

WRITE(6,629) 

629 eek eed) Te Tr ae 
WRITE(6,602) (( I, K,VFREHL(I,K),V 

AXX THE 2ND TYPE OF SURFACE 

101 CONTINUE 
IF(NN(2).EQ.0) GO TO 102 

MIIQ=MII+IP 


sane 
Re @Oenk 


SH1=RY(MJJ) 
SH2=RY(MJJP) 

SV1=RZ (MRK) 
SV2=RZ(MKKP ) 

DO 24 I=MIIO,MI 

Gap eLL) Ek 
GH2=RX(I+1)-RX(MIIOQ) 
DO 24 K=1,MK 


Ia 


AANAAANAIANINNAN 


GV1.GV2 GHivjeneD 
ea 
Ai SHo=Sud 


GV1=RZ(K) 
DDD=PERPND(SH1 ,SH2,SV1,SV2 
Vee i) eee) eee 
24 CONTINUE 
WRITE(6,631) 
WRITE(6,602) (( I, K,VFREHR(I,K),VFHRRE(I,K),K=1 
* 2. B TO HR 


GV2=RZ(K+1) 
VFHRRE(I,K)=DDD/((SV2-SV1 
631 Oe 2, a ee 
V 
SH1=RZ(MKK) 


MOO 


»MK,I=MIIP,MI)',/ 


/MK) , I=1,MIIM) 


eee ee ee es ee ee es es ee es es es es ee cc Se eee eee ee 
cee ce ei es ee ee ee es es es ee ee ee ee es es eo es es es ei es ae ee 


—_ = ee eee ee ee es ee eo i i i ee 
eo eo ee oe oe ee ee es ee es es es es es ee ee es ce es ee ce ees ee es es es es es es es es es es es es es ee ie 2 ee 


‘ik? toa 


SH2=RZ 
oVI=RY 
SV2Z=RY 
poe ZY 


MKKP ) 
MJJ) 
MJJP ) 
I=MIIO,MI 
GH1= os RR (HII) 
GH2=RX I+1)- “RE(HIIQ) 
DO 20 J=1, 

Bo 
GV2= =RY J+1 
DDD= ee SH2,SV1,SV2,GV1,GV2,GH1,GH2) 
Bee): peeve al ae 2) 
VFHRB(1I,J)=DDD/((SV2-SV1 )*(SH2-SH1 





20 CONTINUE 


Bee FORMAT 


AAN 


aS . 


WRITE (6,633) 
ok 'VEBHR(T, J) , VFHRB, J=1,MJ,I=MIIP,M 1d 
WRITE(6,602) (( I, J,VEBHR(I,J),VFHRB(I,J),J=1,MJ),I=MIIQ,MI) 


i OPnk 


SH1=RZ(MKP meen) 
SH2=RZ(MKP )-RZ(MKK) 
SV1I=RY (MJ 
SV2=RY(MJJP) 
DO 23 I=MIIO,MI 
GH1= )): RX (MIIO) 
GH2=RX(I+1)-RX(MIIQ) 
DO 23 J=1,MJ 
evi=by(J) 

= oe) 
DDD=PERPND (SH1 ,SH2,SV1,SV2,GV1,GV2,GH1 ,GH2) 
. Bee (v2 a ae: a 
VFHRT(1,J)=DDD/( (SV2-SV1)*(SH2-SH1 


25 GOnNEENUE 


635 FORMAT 


AAN 


a4. 


tes, ,635) 
/,5X, VETHR(T, J) ,VFHRT,J=1,MJ,I=MIIP, at) gt) 
Wemte(e.Go2) (( I, J,VFTMR(I,J)  VFHR@(1,J),J=1,M4J) ,I=MIIO,MI) 


Fe 2° AR 


SH1=RY(MJP ies: 
SH2=RY(MJP)-RY(MJJ) 
SVL=RZ(MKK 
SV2=RZ(MKKP) 
DO 25 I=MIIO 
Beek it): Re (Ht19 ) 

K 





GH2=RX I+1)- “R(t IQ) 
DO 25 K=1, 
ey l= "a 
GV2=RZ(K+1 
DDD= a SH2,SV1,SV2,GV1,GV2,GH1 ,GH2) 
t: c eicye- ei oS eae 
VFHRF(1I,K)=DDD/((SV2-SV1)*(SH2-SH1 


25 CONTINUE 


637 FORMAT 


aAaAN 


re 


/,5X, 'VEFHR (I, ) ,VFHRF ,K=1,MK,I=MIIP MI) () 
WRITE(6,602) (( IL, K,VFFHR(1,K),VFHRF(I,K),K=1,MK),I=MIIO,MI) 


R TO HR 
GHZ=RX eg 119) 


ORAS ,637) 


SH1=RY(HIJ 

SH2=RY(MJJP) 
SV1=RZ (MEK) 
SV2=RZ (MKKP ) 
pone ig 
DO 6 K=1,MK 


[39 


MAO 


AAAMA”AANAAMAMYM 


MAO 


639 FORMAT 


& 


GH1 =RY(J) 

GH2 =RY(J+1) 

GV1l =RZ(K) 

GV2 =RZ(Kt1) 

DDD=PARLEL(SH1,SH2,5V1,SV2,GVl7GVzZ GH1, 
GHZ GHZ) *GHZ*GHZ 

vee SOT See SU kt cue aes 

VEHRR(J,K)=DDD/ ( (SV2Z-sV1)* (SHZ—oree 


6 CONTINUE 


werress, ,639) 
Se 'VERER (J, K) , VFHRR, K=1,MK,J= MJ)',/) 
WRITE(6,602) (( J, K,VFRHR(J,K), GFEER(J, ‘K) ,K=1,MK) @=a9ion 


kAKX THE 3RD TYPE SURFACE 
102 CONTINUE 


IF(NN(3).EQ.0) GO TO 103 
MIJQ=MJJIP 


ce ce ce cc ec ee ee eee ee ee ee ee ee ee ee ee es es es es es ee ieee ee ee ee ee eee eee eS 
Se ce ce ee ee ce ee a eS ee eee eee ee ee ee ee me ee ee i ee ee ee ce ce ce ce ee ee ee 


641 FORMAT 


* 


ue 


& 


peeve 
RE TO HRE 


GHZ=RY Mae) 

SH1=RZ(MKK 

SH2=RZ(MRKKP ) 

SV1=RX (MIT) 

SV2=RX(MIIP) 

DO. 7 J=i 9m 

DO 7 K=1,MK 

GVl =p) 

GV2 =RX(I+1) 

GH1 =RZ(K) 

GH2 =RZ(K+1) 

DDD=PARLEL(SH1,SH2,SV1,SV2,GV1,GV2,GH1, 
GH2 , GHZ ) *GHZ*GHZ 

ee BD) ( (cue Gv) 

VHRERE(I,K)=DDD/((SV2-SV1)*(SH2-SHI1 


7? CONTINUE 


ce 


aes /641) 
/,5X, 'VREHRE(I,K),VHRERE,K=1,MK,I= 1,MI)',/) 
WRITE(6,602) (( I, K,VREHRE(I,K),VHRERE(1,K),K=1,MK) ,I=1,MI) 


L TOmring 


SHL=RX (MIT) 
SH2=RX(MIIP) 
SV1=RZ(MKK) 
SV2=RZ(MKKP) 

DO 26 J=1,MJIM 
at: BY ast) 
GH2=RY (MJJ)-RY(J) 
DO 26 K=1,MK 
GV1=RZ(K) 
GV2=RZ(K+1) 
DDD=PERPND(SH1,SH2,$V1,SV2,GV1 ,GV2,GH1, GHZ) 
VELHRE (4, ao ae Sa cul) 
VFHREL(J,K)=DDD/((SV2-SV1)*(SH2-SH1 


26 CONTINUE 


140 


Qa 


aan 


Mm) 


aan 


643 FORMAT 


* 


oe 


ze) 


645 


28 


647 


* 


649 Omer: oa, )VPTRRE(1,J),VFHRET, J=1 ,MJJM,I=1 ,MI ) a) 


8 


Ze 


/,5X%,'VFLHRE( J, K),VFHREL,K=1,MK,J=1,MJJM) 


) 
WRITE (6 602) ed? ok | VFLHRE(J, Kon ‘VFHREL (J, RK), Ra rae J=1,MJJM) 


R. TO ARE 
SH1=RA Hp - TT: 


Ont / ,643) 


SH2=RX (MIP )-RX(MII) 
SV1=RZ(MKK 
SV2=RZ(MKKP ) 

DO 27 J=1,MJIM 
aeeey ids) tt) 
GH2=RY (MJJ)-RY(J) 
DO 27 K=1,MK 
evans (Kk) 

GV2=RZ (K+1) 
DDD=PERPND(SH1 ,SH2,SV1,SV2,GV1,GV2,GH1 ,GH2) 
oe: epee, eee a seces et) 
VFHRER(J,K)=DDD/ ((SV2-SV1)*(SH2-SH1 


CONTINUE 


WRITE(6 ,645) 


FORMAT (/,5X,'VFRHRE(J,K),VFHRER,K=1,MK,J=1,MJJM)', 


/ ) 
WRITE(6, 602) we, | VFRHRE(J, K) ,VF "HRER(J, K), K=1 MR) , J=1 ,MJJM) 
E10 ARE 


SH1=RZ(MKK) 

SH2=RZ (MKKP ) 

SV1=RX( MIT) 

SV2=RX(MIIP) 

be. 26 J=1,MJIJM 

GH1= sauii ss} Re} 
I 


DDD=PER 
ca: 
VE GRE 
CONTINUE 


Beare (6 647) 
FORMAT(/,5X,'VFBHRE(1I,J),VFHREB, J=1,MJJM,I=1,MI 
WRITE(6,602) (( I, J,VFBHRE(I,J),VFHREB(I,J),J 


ee Oma i 


SH1=RZ(MKP 
SH2=RZ(MKP 
SV1=RX(MII 
SV2=RX(MIIP) 

DO 29 J=1,MJJM 
GH1= ss 3. ae 
GH2=RY HJJ cRY a) 


M 
i 
I+1) 
Pi srlyshz ,SV1,SV2,GV1,GV2,GH1 ,GH2) 
i - Be eee ae ‘a eet) 
i =DDD/((SV2-SV1 Sages 


if) 


ene MJJM) , I=1,MI) 


Ne 


Wen) 
-RZ (MRK) 





G) 
=i 
qi 
ho 
oS 
tH 
~~” | 


DDD= Se caden.. Shizuo Vl yow 2, GV ls GVZ fens ,GH2 ) 
eee. 3\- es Sty eis a 

cote ene I,J)=DDD/ ((SV2-SV1 Sao 

ONTIN 


WRITE (6,649) 


WRITE(6,602) (( I, J,VFTHRE(I,J),VFHRET(L,J),J=1,MJJM) , 1=1,MI) 


G 
C *** THE 4TH TYPE SURFACE 


c 


141 


103 CONTINUE 


ANANANNNAN|ANAN 


& 


IF(NN(4).EQ.0) GO TO 104 
MIJQ=MJII+IP 


DT se ds 
ee mw ee ee ee mee ee cee eo ei 


mmm mmm SS me cme ee ee ee ee ee eo ee ee 
Cw mm cm me mm rm ee ee ee 


SH Pah RK 

SH2=RZ(MKKP ) 

SV1=RX(MIT) 

SV2=RX(MIIP) 

DO San MI 

DO 8 K=1,MK 

GH1 =RZ(K) 

GH2 =RZ(Kt1) 

GV1l =RX(I) 

GV2 =RX(I+1L) 

DDD=PARLEL(SH1,SH2,SV1,SV2,GV1,GV2,GH1, 
Gaz, GHZ ) *GHZ*GHZ 

veers: a Ena | (Gyacues |x tee 

VFHFF(1I,K)=DDD/( (GV2-GV1 ) *( GH2-GH1 


GHZ=RY uae) “Rx (aiI9) 


8 CONTINUE 


651 Henvet 


AOA 


ORE? 651) 
/ 5%, VEFHE (I, K) , VFHFF,K=1,MK,1=1,MI)!,/) 
WRITE(6.602) (( L, K,VFFHF(1I,K),VFHFF(I,K) ,K=1,MK) , 1=1,MI) 


* 2. Laeger 


SH1=RX(MIT) 

SH2=RX(MIIP) 

SV1=RZ (MEK) 

SV2=RZ(MKKP ) 

DO 30 J=MJJO,MJ 

He a7 (130 ) 

GH2=RY ie “RY (HII) 

DO 30 ‘ee 

DDD=PER 
a 


es: 
VFHFL 


pen SH2,SV1,SV2,GV1,GV2 ,GH1, GH2) 
: oD eres Cae sae a 
=ppp/( (SV2-SV1)*(SH2-SH1 


Rete 


30 CONTINGEA 


653 FORMAT 


QAAN 


oe 


) 
eR. VELHE (J, K) , VFHFL,K=1,MK, J=MJJP MI) {) 
6/602) (( J, K,VFLHF(J,K),VFHFL(J,K),K=1,MK) , J=MIJQ,MJ) 


R F@ Hi 
SHL=RA HE ys ae 


Rta 653 
WRITE 


SH2=RX(MIP)-RX(MII) 
SV1=RZ(MKK 
SV2=RZ(MKKP) 

DO 31 J=MJJO,MJ 
eoi= co) RY (MJJQ) 
GH2=RY(J+1)-RY(MJJQ) 
DO 31 K=1,MK 

GVl= er: 
GV2=RZ(K+1) 


142 


AAD MAGQY 


AAD 


AIAIAANANAAANIYN 


65.) FORMAT 


* 


657 FORMAT 


* 


659 FORMAT 


DDD=PERPND(SH1,SH2,SV1,SV2,GV1,GV2,GH1,GH2) 
VFRHF(J, pyeeee, | (cv3- can La cay 
VFHFR(J,K)=DDD/ ( (SV2-SV1)*(SH2-SH1 


31 CONTINUE 


4. 


: ,655) 
/,5X, !VFRHF(J, K) VFHFR , K=1,MK,J=MJJP,MJ)', Ld 
WRITE(6,602) (( J, K,VFRHF(J,K),VFHFR(J,K),K=1,MK) , J=MJJO,MJ) 


S210 7nF 


SH1=RZ(MKK) 
SH2=RZ(MKKP ) 
SVL=RX(MII) 
SV2=RX(MIIP) 

DO 32 J= aay MJ 
mea) 7 ¥(HIJ9) 
GH2=RY J+1)- RY (MJIJQ) 
DO 32 I=1,MI 
GV1=RX(I 
GV2=RX(I+1) 
DDD=PERPND(SH1,SH2,SV1,SV2,GV1,GV2,GH1,GH2) 
ee) aie ete ae Ce 
VFHFB(IL,J)=DDD/((SV2-SV1)*(SH2-SH1 


ee” 


Or 


32 CONTINUE 


>. 


WRITE(6,657) 
Vo VEBHE (I, ) AV FHFB, J=MJJP ,MJ,I=1,MI)',/) 
HF(I,J),VFHFB(1I,J),J=MJJ0 MJ) ,I=1,MI) 


WRITE(6,602) (( I, J,VE 
T TO HF 

SH1=RZ(MKP eee) 
SH2=RZ(MKP )-RZ(MKK) 
SV1=RX(MII 
SV2=RX(MIIP) 

DO 33 J=MJJIO,MJ 
Ve) RY (MJJQ) 
GH2=RY (J+1)-RY(MJJQ) 
DO 33 I=1,MI 
a) 
GV2=RX(I+1) 


era su, SH2,SV1,SV2,GV1,GV2,GH1 ,GH2) 
i TE eis. a in cae 
meee Fo )=DDD/ ( (SV2-SV1)*(SH2-SH1 


33 CONTINUE 


WRITE(6,659) 
/,5%, VETHE (I, J), VFHFT,J=MJJP,MJ,I=1, MI)',/) 
WRITE(6,602) (( I, J,VFTHF(I,J),VFHFT(1,J),J=MJJQ,MJ),I=1,MI) 


eo* THE 50H TYPE SURFACE 
104 CONTINUE 


IF(NN(5).EQ.0) GO TO 105 
MKKQ=MKKP 


—— ec ce ce ee ccm crm ce mcm cr cr em crm cc ce cm wc mm mmm cy ey ww ee es es we ee we ee ee 
ce ce a cee ce ce cr cr ce cr cr cr cr ce re cr cr re re cr re ce cre cm cee cm ce ce ce ce ce ce ce ce ce ce ce ce ee es ee ee ee eee ee ee 


— cm cme ce crm cmc cr cr cr rc cr ce ecm mc cmc cc cc cc cm we we cm cm ws cm cm we cm ee we ee we se ee 
———> ce cm cm cm mmc cc cc cm cm cc cm cr rw ccm mm ee ww cw ww ee ee 


eee So oe RE 

Zeeeecleemave-' F 

Sees 66 =O 

fees Wa L 

De wee )6CB 
xd. 1) Dale 


SH1=RY(MJJ) 
SH2=RY (MJJP) 


143 


AAO 


AAA 


AANA 


611 FORMAT 


613 FORMAT 


615 FORMAT 


* 


svi pau 
SV2=RX(MIIP) 

DO 17 I=1,MI 

DO 17 K=1.MRKKM 
GVl =Rx(L) | 
GV2 =RK(I+1) 

GHI=Ré (MRK) “RZ (R41) 

GH2=RZ(MKK)-RZ(K) 
DDD=PERPND(SH1,SH2,SV1,SV2,GV1,GV2,GH1,GH2) 
VEREMB(T, KYSDBD/ ( (GUz" CCl) eT 
VFHBRE(1,K)=DDD/((SV2-SV1)*(SH2-SH1 


17 CONTINUE 


ae 


ao ee 
/,5X,'VFREHB(I,K),VFHBRE,K=1,MKKM,I= 1, MI)',/) 
WRITE(6,602) (( I, K,VFREHB(I,K),VFHBRE(I,K) ,K=1,MKKM) , 1=1 ,MI) 


Fo TOS 


SH1=RY (MJP ae 
SH2=RY(MJP)-RY(MJJ) 
SVL=RX(MII 
SV2=RX(MIIP) 

DO 15 I=1,MI 

DO 15 K=1,MKKM 
GV1=RX(I) 
GV2=RX(I+1 
GH1=RZ(MKK) -RZ(K+1) 

GH2=RZ(MKK) -RZ(K) 
DDD=PERPND(SH1,SH2,SV1,SV2,GV1,GV2,GH1,GH2) 
VERHB (TK )"ODD/ ( (ou2-G¥1) (Guat) 
VFHBF(1,K)=DDD/((SV2-SV1)*(SH2-SH1 





1S eGeNTINGE 


or 


/,o8, VEPHE (. 1 eevee ae i rot 
WRITE(6,602) (( I, K,VFFHB(1I,K) ,VFHBF(I,K) ,K=1,MKKM) ,I=1,MI1) 


RelO Hb 


SH1=RX(MIP 
SH2=RX(MIP 
SVL=RY (MII 
SV2=RY (MJJP) 

DO 13 J=1,MI 

DO 13 K=1.MKRKM 

GV1l =RY(J 

GV2 =RY(J+1) 

GHUSEC NRK) Bz K+1) 

GH2=RZ(MKK)-RZ(K 

DDD=PERPND (SH1,SH2,$V1,SV2,GV1,GV2,GH1,GH2) 
VERHB JR) =DBD PGES ee ae 
VFHBR(J,K)=DDD /((SV2-SV1)*(SH2-SH1 


ORHATI/ (3%, 


Eee 
-RX (MIT) 





13 CONTINUE 


4. 


a ee 
/,5X,'VFRHB(J,K),VFHBR,K=1,MKKM,J=1, MJ)',/) 
WRITE(6,602) (( J, K,VFRHB(J,K),VFHBR(J,K) ,K=1,MRKKM) , J=1,MJ) - 


Lino TOpaareis 


SH1=RX(MIT) 
SH2=RX(MIIP) 
SV1=RY(MJJ) 
SV2=RY(MJJP) 
Dol J=us 
DO 11 K=1,MKKM 
aes) 
GV2=RY(J+1) 
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AAN 


aA 


AAAN 


aAAN|ARAANAA 


CS ae fone 
GH2=RZ(MKK)-RZ(K) 

Dee SeeRe Non) ,5SH2,5V1,SV2,GV1 ,GV2,GH1,GH2) 
wats ip =DDD oun a ni ef 
VFHBL(J,K)=DDD /((SV2-SV1 Sa oH) 


fe Cer INGe 


617 FORMAT 


aes 


ee ,617) 
5% VELHB (J, K),VFHBL,K=1,MKKM, J= 1, MJ)!,/) 
WRITE(6,602) (( J, K,VFLHB(J,K),VFHBL(J,K),K=1,MKKM) , J=1,Md) 


Bee lO HE 


GHZ=RZ wot 
SH1L=RX(MII 

SH2=RX(MIIP) 

SVL=RY(MJJ) 

SV2=RY (MJJP) 

Beno [=] ,MI 

DO 9 J=1 Mg 

GH1 =RX(I) 

GH2 =RX(I+1) 

GVl =RY(J) 

GV2 =RY(J+1) 

DDD =PARLEL(SH1, Sia pov SoV2Z,GVl>GV2,GH1, 


& GHZ , GHZ) *GHZ*GHZ 


Be ones | (GV 2-GV1)*(GH2~GHI) ) 
VFHBB(1I,J)=DDD/ ((SV2-SV1)*(SH2-SH1 


9 CONTINUE 


619 FORMAT 


RAS ,619) 
/,5X, 'VEBHB(T, J), VFHBB,J=1,Mg, I= MI)',/) 
WRITE(6,602) (( I, J,VFBHB(1,J),VFHBB(I,3), < 1,MJ3),I=1,MI) 


ARK THE 6TH TYPE OF SURFACE 
105 CONTINUE 


IF(NN(6).EQ.0) GO TO 106 
MKKO=NKK+KP 


AKA (F) TOP SIDE OF HEAT SOURCE (HT) VS WALL SURFACE 
ee Ss eT 
ae SR 
SeeenT VS F 
Lee |S CORE 
eer vs T 
* i, LTO HT 
SH1=RX(MIT) 
SH2=RXK(MIIP) 
SVI=RY(MJJ) 
SV2=RY (MJJP) 
DO 4 J=1,MJ 
DO 4 K=MKKO,MK 
Cen) 
GV2 =RY(J+1) 
GH1 =RZ(K)-RZ(MKKQ) 
GH2 =RZ(K+1)-RZ(MKKQ) 
DDD =PERPND(SH1,SH2,SV1 ,SV2,GV1,GV2 GH, GH2) 
ee cs i =DDD ee. om (c esree 
VEHTL wpe /((SV¥2-SV1 )*(SH2-SH1 
4 CONTINUE 
WRITE(6,601) 
601 FORMAT(/,5X,'VFLHT ( J, K),VFHTL, K=MKKP, MK, J= /) 


IJ) ' 
WRITE(6, 602) Cel. K /VELHT (J, koe ‘VFHTL(J, K), K= =MKKO, MRY, ne 1 M3) 
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OOO) 


MAO 


AAT 


ie. 


Ki Omerict 

SHER e ee 
SH2=RX(MIP)-RA(MII) 
SVL=RY( MJJ 





SV2=RY(MJJP) 

BOr1lZ =) 

DO 12 K=MKKQ,MK 

GV1. =Rv (J) 

GV2 =RY(Jt+1) 

GH1 =RZ(K)-RZ(MKKQ) 

GH2 =RZ(K+1)-RZ(MKKQ) 

DDD =PERPND(SH1,SH2,SV1, SVé ,GV1,GV2,GH1 ,GHZ2) 
verte. ae =DDD i eee a Gigs -GH1 
VFHTR(J,K)=DDD /((SV2-SV1 SH2-SH1 


12 CONTINUE 


603 FORMAT 


ee 


Were G ,603) 
/,5X,'VFRHT ( J, K),VFHTR, K=MKKP, MK, J= MJ)" j} 
WRITE(6,602) (( J, K,VFRHT(J,K),VFHTR(J,K) , K=MKKO, MR, MJ 


Pe ECan 


SH1L=RY (MJP 
SHZ=RY (MJP 
SVI=RA(MII 
SV2=RX(MIIP) 

DO 14 I=1,NI 

DO 14 K=MKKQ,MK 
GV1 =RA I) 


=~ 


ee 
-RY(MJJ) 





.GV2 =RX(I+1) 


GH1 =RZ(K)-RZ(MKKOQ) 

GH2 =RZ(K+1)-RZ(MRKOQ) 

DDD =PERPND(SH1,SH2,SV1,SV2,GV1 ,GV2 
ee)? ate om ae ce ge 
VFHTF(I,K)=DDD /((S$V2-SV1)*(SH2-SH1 


GH1 ,GH2) 


14 CONTINUE 


605 FORME 


Zee. 


WEES ,605) 
/,5X, | VEFHT (I, K) ,VFHTF,K=MKKP,MK, I= 1, .MI)!,/) 
WRITE(6,602) (( I, K,VFFHT(I,K),VFHTF(I,K),K=MKKO,MK), I=1,MI) 


i Omnia 


SH1L=RY(MJJ) 

SH2=RY(MJJP) 

SV1=RX(MIT) 

SV2=RX(MIIP) 

DO 16 I=1,MI 

DO 16 K=MKKO,MK 

GV1 =RX(I 

GV2 =RX(I+1) 

GH1 =RZ(K)-RZ(MKKO) 

GH2 =RZ(K+1)-RZ(MRKO) 
DDD_=PERPND(SH1 ,SH2,5V1,SV2,GV1,GV2 
VEREHT(T, KDR Aas ia a ak 
VFHTRE(1,K)=DDD/( (SV2-SV1)*(SH2-SH1 


GH1 ,GH2) 


lo CONPinver 


607 FORMAT 


Waals) ,607) 
/,5X, 'VFREHT(1I,K),VFHTRE,K=MKKP,MK,I=1, MI)',/) 
WRITE(6,602) (( I, K,VFREHT(1I,K),VFHTRE(1I,K) , K=MKKO,MK) ,I=1,MI) 


* 5) een 


GHZ=RZ ee earn) 
SH1=RX(MII 
SH2=RX(MIIP) 
SV1=RY(MJJ) 
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SV2=RY(MJJP) 
Demon tal Mi 
DO 10 J=1,MJ 


GH1 =RX(I 
GH2 =RX(I+1) 
evil =RY( J) 


GV2 =RY(J+1) 
DDD =PARLEL(SH1,SH2,$V1,SV2,GV1,GV2,GH1 ,GH2,GHZ) 


& *GHZ*GHZ 
eee) g0bb/ | \GugeGy 1 )*(GH2-GHI)) 
VEHTT(I ,J)=DDD/( (SV2-SV1)*(SH2-SH1 


10 CONTINUE 


ee 57 209) 
609 FORMAT(/,5X,'VFTHT(I,J),VFHTT,J=l1, MJ, I=. 1 
WRITE(6,602) (( I, J,VETHT(L,J),VFHTT(I,J),J= 
106 CONTINUE 


~~ 


, MI)!, 
1,MJ),I=1,MI) 


KREKRKAKRAKAKARAKA RAR RAR RARE RA REKAKEKR RAR AR ARE RAK ARE RA RAKE RE RE RKRAR 


**&*X THE SECOND STEP IS TO TREAT ALL THE HEAT SOURCE SURFACE TO BE 
ONE RADIATION EXCHANGE WALL ZONE 


Piet nt eee ee ee Se el Rs Lee ee. Ae es ee le. Umesh UU le OU Cle Ue. GC LOD Ol leet 


*XX SUM THEM UP TO GET THE REAL VIEW FACTORS BETWEEN THE HEAT-SOURCE 
AND THE WALL ZONES 


**X SVFHSW: SUMMATION OF VIEW FACTOR FROM HEAT SOURCE TO ALL WALL ZONES 
AX SVFWHS: SUMMATION OF VIEW FACTOR FROM ALL WALL ZONES TO HEAT SOURCE 


SVFWHS=0. 
SVFHSW=0. 


Dom2ol J=1.Mi 
DO 201 K=1,MK 
AX 2 VERTICAL WALLS TO HEAT SOURCE 
yer ee ene a RY SVEREB (JI) 
VFLHS(J,K)=VFLHF(J,K)+VFLHRE(J,K)+VFLHL(J,K)+VFLHT(J,K)+VFLHB(J,K 
SVFWHS =SVFWHS+VFRHS (J,K)+VFLHS(J,K) 
*X HEAT SOURCE TO 2 VERTICAL TANK WALLS 
VFHSR(J,K)=VFHFR(J,K)+VFHRER(J,K) 
& +VFHRR(J,K)+VFHTR (J,K)+VFHBR(J,K) 
VFHSL(J,K)=VFHFL(J,K)+VFHREL(J,K) 
& +VFHLL(J,K)+VFHTL bec anabeera os 
SVFHSW =SVFHSW+VFHSR(J,K)+VFHSL(J,K 
201 CONTINUE 
Perzos 1-1 MI 
DOm2 0s aK=1)-MK 
*X 2 VERTICAL WALLS TO HEAT SOURCE 
VFREHS(I,K)=VFREHL(I,K)+VREHRE(I,K)+VFREHR(I,K)+VFREHT(I,K) 
& +VFREHB(I,K 
VFFHS(I,K) =VFFHF(1I,K)+VFFHL(I,K)+VFFHR(I,K)+VFFHT(I,K)+VFFHB(I,K) 
SVFWHS =SVFWHS+VFREHS (I,K)+VFFHS (I,K) 
XX HEAT SOURCE TO 2 VERTICAL TANK WALLS 
VFHSRE(1I,K)=VFHLRE(I,K)+VHRERE(I,K) 
& +VFHRRE(1I,K)+VFHTRE(1I,K)+VFHBRE(I,K) 
VFHSF(I,K) =VFHFF(I,K)+VFHLF(I,K) 
& +VFHRF (I,K)+VFHTF(I,K)+VFHBF(I,K) 
SVFHSW =SVFHSW+VFHSRE(I ,K)+VFHSF(I,K) 
203 CONTINUE 


Domo er 1 ae 
DONO =! Ho 
kk 2 HORIZONTAL WALLS TO HEAT SOURCE 
Ree cere (2,7 )+VETHT(T J )sVETHL A(T, 
VFBHS(1,J)=VFBHB(1I,J)+VFBHRE(I,J)+VEBHE (I 
SVEWHS =SVFWHS+VETHS (I ,J)+VFBHS(I,J) 
kk HEAT SOURCE TO 2 HORIZONTAL WALLS 
WERST(1,J)=VFHET(1I,J)+VEHTT(1I,J) 


ee ee 3} 
,J)+VEFBHL(1I,J)+VFBHR(I,J 
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AAADMD AMA MANN 


© 


+VFHLT(1I,J)+VFHRET(I,J)+VFHRT(I,J) 
VFHSB(1I,J)=VFHBB(I,J)+VFHREB(I,J) 
& He ear RPhad 68 2 
SVFHSW =SVFHSW+VFHSB(I,J)+VFHST(1,J 
202 CONTINUE 


*AX*X PRINT OUT THE VIEW FACTORS 


org OV EHSW, S Vina 
554 FORMAT(/,' SUMMATION OF VIEW FACTORS ERG@H @LUPHEAD Seurer 

& ' SURFACES TO ALL INTERIOR WALLS, SVFilsyW —" Sebi s¢, 

& ' SUMMATION OF VIEW FACTORS FROM ALL INTERIOR WALLS', 
& ' TO ALL HEAT SOURCE SURFAG@ES , SVEMS —' Ella 7) 


DO 34 J=1,MJ 
WRITE(6,35) J 
35 FORMAT(/,2X,'J=',12,3X,'VFHSL ',5X,'VFHSR ',5X, 
& 'VFLHS ',5X,'VFRHS ',/) 
DO 34 K=1,MK 
WRITE(6,36)K, VEHSL(J, K), ia .K), VELHS(J,K) ,VFRHS(J,K) 
36 FORMAT(2X,'K=',12, 4(1X,E10.4) 
34 CONTINUE 
DG 37 Tine 
WRITE(6,38) I 
38 FORMAT(/,2X,'I=',12,3X,'VFHSF ! 
& 'VFHSRE' , 5X, VFENG SX, Areene™ ) 
DO 37 K=1,MK 
WRITE(6, 35)K, VFHSF(1I,K),VFHSRE(I,K),VFFHS(I,K),VFREHS(I,K) 
39 FORMAT(2X, 'K=',12, 4(1X,E10.4)) 
37 CONTINUE 


DO 40 I=1,MI 

WRITE(6,42) I 
42 FORMAT(/,2X,'I=',12,3X,'VFHST ',5X,'VFHSB ',5X,'VFTHS |, 5X, 

&  'VEBHS! 

DO 40 J=1,MJ 

WRITE(6,41)J, VEHST(1,J), pies J), VFTHS(I,J),VFBHS(I,J) 
41 FORMAT(2X, 'J=',12,4(1X,E10.4) 
40 CONTINUE 


RETURN 
END 


KRAKRKKKKKRKKKRKRKRKRKRKRKRKRKKKRKRKKRKKKKRKRKRKKKRKKKRKRKKKRRKKRKRKRKKRRAKKRRKKKRKRKRRRRKRKRKRRK 


FUNCTION PERPND(G&1,GK2,GY1,GY2,GV1,GV2,GH1 ,GH2) 
IMPLICIT REAL*8(A~-H ,O~Z) 


DIMENSION GX(2),GY(2),GV(2),GH(2) 


**X*X THIS FUNCTION IS USED TO CALCULATE THE VIEW FACTOR BETWEEN 
TWO PERPENDICULAR RECTANGULAR SURPAGES 


PERPND =0. 

IF (GX1.LT.1.B-10.AND. GH1.LT.1.B=10 .AND. G¥d s80.GV1)=@GO Toma 
GX(1)=GK1 

Gai 2 =GR 

Ga 1 ¥=Cual 

Ga 2=Gr2 

ev cyl 

GV (2)=Gv2 

GH( #NEGH1 
GH(2)=GH2 

DO 4 L=1,2 

Dam Te 2 
are. g=1 2 

DO 4 K=1,2 
BUK=GY (J)-GV(K) 


148 


O) 


MANTA AM “AN 


Om 


BIK2=BIK*BJK 
ALI=SQRT (GH(L)*GH(L)+GX(I)*GX(Z)) 
DEie=n0 1 
RESo= =SORT(ALI2+BJK2) 
IF(ABSO.EQ.O. a TO. 10 
CCC=ALOG (ABSO 
Comte 16 

iimece-on 

18 CONTINUE 
ICOEF=I+J+K+L 
IF(ALI. EQ. UPyGO TO 7 
DDD= ALI2*ALOG(ALT) 
BBB= =ALI*ATAN (BJK/ALT) 


8 CONTINUE 
PERPND =PERPND +((-1l. ee)” (BUK*BBB- .5*(ALI2- 
& BJK2)*ccc +.5* DDDS/6.2 
4 CONTINUE 
Go TO 12 
11 CONTINUE 


W=GK2-GX1 
DL=GY2-GY1 
H=GH2-GH1 
W=W/DL 
H=H/DL 
W2=WAW 
H2=H*H 
W2P1=1.+W2 
H2P1=1.+H2 
W2H2=W2+H2 
W2H2P1=1.+W2+H2 
eye 1 (Ane) Sigs2) 52 
YYY=(H2*W2H2P1/(H2P1*W2H2) ) **H2 
PERPND= (W*ATAN( 1. /W)+H*ATAN (1. /H)~SQRT(W2H2)* 
& ATAN(1./SQRT(W2H2))+. Oe ALOG W281 HSE 1 /W2H2P1*KKK*YYY) ) 
& *DLADL/ 3.14159 
12 CONTINUE 


RETURN 


END 
ARAKAKKKKAKKKKAKKAKKAKKKKKKKKRKAKKAKRKRKAKKKAKARKRRAKKRKKRKKKKRKKKRAKKARARKAKRKKKAKRKKAKR 


FUNCTION PARLEL(XH1,XH2,YV1,YV2,GV1,GV2,GH1,GH2,GHZ) 
iMPererht RHAL*8(A-H ,O-Z) 


DIMENSION GX(2),GY(2),GV(2) ,GH(2) 


*x*X THIS FUNCTION IS USED TO CALCULATE THE VIEW FACTOR BETWEEN 
TwO PARALLEL RECTANGVE SURFACES 


PARLEL=0. 
Meee wno.GVl) .AND. YV1.EQ.GH1) GO TO 11 


GX(1)=XH1/GHZ 


GX ( 2)=XH2/GHZ 
GY(1)=YV1/GHZ 
Gui )=172/ GHz 
Gv. 1 =6)1/ Gaz 
Gu 2) =602/ Gre 
GH(1)=GH1/GHZ 
enh) =GH2/GHZ 
Dawitb= 1 92 

DO 1 K=1,2 
Dome 
Demir 
ALI=GH(L)-GX(I) 
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BKJ=GV(K)-GY(J) 
ALIZ=Ani eer E 
BKJ2=BKI*BKJ 
SBKJ=SORT(1.+BKJ2 
SALI=SORT(1.+ALI2 
ALAB2=0 .5*ALOG(1.+ALI2+BKJ2) 
AAA=ALOG(SALI) 
ICOEF=1+J+K+L 
PARLEL=PARLEL+ ((-1.)**ICOEF)* (ALI*SBKJ*ATAN(ALI/SBKJ) 
& BRT TATAN (BRS ) +3801 2k 2 
& -~ALI*ATAN(ALI )+AAA+ALOG(SBKJ)-ALAB2)/6.28 
1 CONTINUE 
GOr1O lz 


11 CONTINUE 
eae ee 
Y=(YV2-YV1 )/GHZ 
X2=X*XK 
Y2=Y*Y 
X2P1L=1.+XK2 
Y2P1=1.+Y2 
XZY2=X2+Y2 
X2Y2P1=1.+X2Y2 
PARLEL=(ALOG(SQRT(X2P1*Y2P1/X2Y2P1) )+X*SORT(Y2P1) 
& cee SOR eas tag ee 
& -X*ATAN (KX) -Y*ATAN(Y) )*¥2./3.14159 
12 CONTINUE 


RETURN 
END 


BLOCK DATA | 
Co RAAKAKARAAKAKRAKKKKKAKAAKAKKKAAKAKAKKARKARKARKAAKAAAKAKAAARAKKAKAAKARARKKKKKK 


c 





COMMON/BL11/ MITE 9) Hage OO) alae SGA G ); 


& L1(9),L3(9) ,LK(9) ,AYZ(9) , AXY(9) , AZX(9), 
& NHSZ, ITHIN(9) , JTHIN(9) ,KTHIN(9), 
& THSB(9),NHSW(9) , JHSB(9),NHSD(9) , KHSB(9) , NHSH(9) 
C 
DATA MIIZ/9*0/, MJJZ/9*0/, MKKZ/9*0/, IS/6*0/, LTYPE/54*0/ 
DATA ITHIN/9*1/, JTHIN/9*1/, KTHIN/9*1/, NHSZ/9/ 
C 


END 
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APPENDIX C 
FORTRAN LISTING OF THE RECTANGULAR NUMERICAL MODEL 


OF FIRE I 
KAAKKKKAAKKKKKKKAAAKAKAAAKAKKKARARARAAKARKAKAARARAAARARAKAAAAKRKKKK 
AX AK 
wi THREE-DIMENSIONAL NUMERICAL SIMULATION a 
a OF A FIRE SPREAD INSIDE A NAVY STORAGE TANK in 

x 
a DEVELOPED BY : ak 
a ERO KatecANG. G.F. NIES * 
AK kX 
*k DEPARTMENT OF AEROSPACE & MECHANICAL ENGINEERING * 
a UNIVERSITY OF NOTRE DAME * 
x NOTRE DAME, INDIANA, 46556 ax 
A =x 
x AND wx 
KK ~~ 
AX DEPARTMENT OF MECHANICAL ENGINEERING aK 
a U.S. naval postgraduate school a 
xX Monterey, california 93940 AK 
kX KK 
aK KX 
x DEC. 1986 wR 
AK KK 


KRARKAKKKKRARKKAKARKARAKRKAKKARAKKKARRKKAAAKRKARKKAARARARAARKARARARARRRKARRRA 


COMMON /BL1/BUOY,VISL,VOL,VOLDT,KBOUND , DTIME,NTREAL, SORSUM,NWRITE 
COMMON /BL2/ DX,DY,DZ,DXY,DYZ,DZX, XYOZ, YZOX, ZXOY , XYPZ, YZPX, ZXPY 
COMMON /BL3/ NI,NJ,NK,NIM1 ,NJM1,NKM1,NIM2,NJM2 ,NKM2 
COMMON/CONS/XTIME ,NT,UO,PRT,TA, 
8 NTMAXO, RA, CPAIR, SIGMA 
COMMON/NE/ U(22,18,18),V(22,18,18) B(22,18,18).R(22, 18,18), 
P(22,18,18).W(22,18,18) ,WOD(22,18,18),NOD(22,18,18 
S P(22,18,18),W(22,18,18) ,WOD(22,18,18 
COMMON /OD/UOD(22,18,18),VOD(22,18,18) , TOD(22,18,18) ,ROD(22,18,18) 
COMMON/BL31/TPD(22,18,18),RPD(22,18,18),UPD(22,18,18), 
& VPD(22,18,18) WPD (22 18,18) ,PED(22 18-18), RESORM (20) ITER 
COMMON/CO/AP(22,18,18) ,AE(22,18,18) ,AW(22,18,18),AN(22,18,18), 
& AS(22,18,18) ,SU(22,18,18),SP(22,18,18) ,AF(22,18,18) ,AB(22,18,18) 
COMMON/PP/DU(22,18,18),DV(22,18,18) ,DW(22,18,18) ,PP(22,18,18) 
COMMON/BL10/ Z(30),REO(30) ,VIS(22,18,18) ,RRES(3 
COMMON/BL12/ DYZO2,DZX02, DXYO2, XYPZ2 , YZPX2 , ZXPY2 , DX4,DY4,DZ4 
“ XYOZ2, YZOX2, ZXOY2, DYZ04 , DZX04,, DXY04 
COMMON /BL4/ QCONW , 
QORADF ,QRADW ,ARFP ARES, QRADB, QCONB , QRADL , QCONL , QRADR, QCONR, 
ORADT ,QCONT , ORADRE , OCONR 
COMMON/WCAP/TWF (21,2,17),TWRE(21,2,17),TWR (2,17,17), 
a) CC I Gal , Tao, TW (21~,17,2), 
Ges (2193,17), @PRe(21.3,17),CPR (317,17 
EPLo(3 17 17) peel 1795) cerm7) 17,3 
.DXW,DYW, DZW, VOLW, ALFAW, BETAW, HCOEF ,TINF, 
CCOWL , CCOWR, CCOWRE , CCOWF , CCOWB , CCOWT 
rn 7 17s 17,17) ,BREW(21,17),REW(21,17) -RBW(21,17) 
'RTW(21,17),RADHS 


COMMON /VF/VEMXC (67,67), T4ZON(67) , TZON(67) ,RZON(67) ,AR(67) 
& /AREA(67) , VIEW(67,67) , CONSRA 

COMMON /BL80/BTURB, ABTURB , CNT , DX2, DY2,DZ2, VISMAX 
i a ,SMPP(22,18,18),R1I(22,18,18) 


COMMON /VIEWL/ Mi ,MgSMK MED Mid |MKK aM MIP ,MIM,MJP ,MKM,MKP, 
& MOL ewes | MMeeIKKE Nesa,l2,NZ,MZ, 
& IREGNI , TIREGN2Z, IREGN3 , TREGN4, IREGNS , TIREGN6, IREGN7, 


~ 





2 DCO OOVW WON M 
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AN ANANANANNDANARANANANAANANAAANAANANAINANANANNAAANAANAANANANIMNAAM™AA 


& MREGN1 ,MREGN2 ,MREGN3 , MREGN4 , MREGNS , MREGN6 , MREGN7 


COMMON /VIEW2/ METZ (9) Mieke) ele L1(9) ld 3) eke 
& ITHIN(9) , JTHIN 9 Terr (9) A (9) ee ee 
& IHSB(9), JHSB(9) ,KHSB(9) ,NHSW(9) ,NHSD(9) ,NHSH(9), 
& LTYPE(9,6) 


DIMENSION DUMMY(22,22) ,QDOT(9) ,QF1(9) 
DIMENSION TCELSI(22,18,18),POD(22,18, 


CHARACTER STAR 

DATA STAR/'*'/ , ITLEFT/10000/ 

DATA SORMAX, ITMAX/0.10,10/ 

DATA TIME /RHEAT ,CPHEAT/@. (82.39. Wee 
DATA RWALL/488.0/ 

DATA OCORMRT , PCURMI,PM1/1.0,17Ge Ge, 


, SVIEW (67 ) 
18) 


KAEKEKKKKKKKARKAKKKKKKKRKRKAKKAKRKAKRKKRKKKAKRKKKKRAKRKRKRKRRAKKKRAKKRKKAKKRRKRKEKKRKKKERK 


KARKKAKK PRY SPECIAL ATTENTION TO LINES COVERED BY 


AA 
RRR 
KKK 
ARK 
KAR 
ARK 
ARK 
KARR 
ARK 
ARK 
KAR 
ARK 
KAR 
ARK 
RRR 


ARK 


AKK 


ARK 


AKK 


ARK 


KKK 


AAR 


AAK 


SSSSSSSSSSSSSSSSSS LINES SSeeieceoceee 


U0 : REFERENCE VELOCITY (FT/SEC) 

RA : REFERENCE AIR DENSITY (LBM/FT**3) 
H : REFERENCE LENGTH (FT) 

TA : REFERENCE TEMPERATURE (R) 

TINIT : INITIAL TEMPERATURE (0) 

Ge : GRAVITATIONAL, CONSTANT 


RAITR : GAS CONSTANT; 53.34 

CONST1 : RA*U0**2/GC 

CONST4 : REFERENCE LENGTH (CM) 

CONST6 : REFERENCE VELOCITY (CM/S) 

CONSRA : TA**3/(RA*CP*UO*H*H) 

NPRNT : USED IN T,R,U,V,P,.... PRINTOUT ROUTINE 
NO. OF GRIDS BETWEEN TWO CONSECTIVE PRINTOUTS 

NTRWR : NTREAL/NWRITE*NWRITE 

NTRWA : NTREAL/NWALTANWALT 

QD : MAXIMUM HEAT INPUT, (WATTS) 

TIMEL : HEAT FLUX INCREASES LINEARLY TO IT FULL STRENGTH, QD, 
AT TIME=TIME1, (SEC.) 2 

TIME2 : THEN THE HEAT INPUT GRADUALLY REDUCES TO ZERO, (SEC.) 


WIHICK ; INTERIOR THICKNESS {IN) 

TWF (), TWRE(), TWL (), TWR (), TWB (), TWT () : TEMPERATURE 
INSIDE THE TANK WALL, 2 CELLS DEEP. 

QCONF (), QCONRE(), QCONR (), QCONL (), QCONB (), QCONT () : 
THERMAL CONDUCTION ON TANK WALLS, CALCULATED IN #CALT# 

CPF (), CPRE(), CPR (), CPL(), CPB (), CPT () ; THERMAL WALL 
WALL CAPACITANCES, IT IS A FUNCTION OF TEMPERATURE 

CP__()=ALFA_+BETA_*TEMPERATURE 

RWALL, CCOWL,CCOWR,CCOWRE,CCOWF,CCOWB,CCOWT, CELLL,CELLR, 

CELLRE,CELLF,CELLB,CELLT ; VARIABLES USED IN #MAIN# AND 

#CALT# FOR WALL CAPACITY CALCULATION 

CPWALL,CONDET,CONDEB,CONDEW,CONDEF, ACOWW,BCOWW,ACOWT,BCOWT, 

ACOWB,BCOWB,ACOWF,BCOWF ; USED TO CALCULATE WALL THERMAL 

CAPACITY 

AREA() : NUMBER OF CELLS IN A SURFACE ZONE 

AR : AREA (FT**2) OF A SURFACE ZONE 

RRW (),RLW(),RREW(),RFW(),RBW(),RTW(); SURFACE RADIATIVE HEAT 

FLUX ON EACH CELL. CALCULATED IN #SURRAD# AND USED IN #CALT# 

FOR TANK WALL TEMPERATURE CALCULATION 


WC : WIDTH OF THE TANK, IN “5D 0R Eee) 
DC : DEPTH OF THE TANK, IN Y-DURSerie 
HC .: HEIGTH OF THE TANK, IN 4=DITRES mie) 
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AA NAANA”ANMN AD AO AN ANANNANNANANNANOAANANAN 


AA ANNNAANIN 


AKK NI ove eeiis IN A-DIRECTION 
NJ : youn ec. LON 
NK : Z=0GReCT ION 

ob even) ; TYPE OF HEAT SOURCE SURFACE; 
QO; NO RADIATION EXCHANGE OCCURS 








i RADIATION EXCHANGE OCCURS 

AKK MI ‘NUMBER OF ZONES IN XabiRECTION 
MJ : Youre CTION 
MK : Z-DrRECTION 

ARK NZ : TOTAL NUMBER OF RADIATION ZONES IN SYSTEM 

ARK MZ : TOTAL NUMBER OF RADIATION ZONES ON TANK WALL 

AKKX MIIZ(), MII : LOCATION OF THE HEAT SOURCE, ZONE # IN X-DIRECTION 
MGIZ(), MJJ : ie DURE CLION 
PKs), TKK: Z-DERECTION 

KAX LI  hNUMSER OD GHieS “FCR EACH ZONE IN A-DIRECTION 
LJ : Y-DeERecr lon 
LK ; Z-peRe el LON 

*KX THSB : STARTING CELL NUMBER FOR EACH HEAT SOURCE IN X-DIRECTION 
JHSB : Y= Dea eet LON 
KHSB : Z-DIRECTION 

AXK NHSW iin Or ChibomrOR BAGh BEAT SOURCE, IN X-DIRECTION 
NHSD : Y-DERECTION 

. NHSH : ZaDrRe el LON 

*xKK [THIN COR eee eon ONE ZONE SPACE BETWEEN TWO OPPOSITE 
JTIHIN SIDES OF A HEAT SOURCE IN X;(I), Y;(J) AND 
KTHIN Ze) DIRECTIONS 








‘IF ITHIN=JTHIN=KTHIN=1 MEANS A RECTANGULAR SHAPE HEAT 
SOUR Cori l sn ChB ZONE SPACE IN EACH DIRECTION 
IF ITHIN=JTHIN=KTHIN=0 MEANS AN INFINITE THIN SHEET OF 


HEAT SOURCE IN ALL 3 DIMENSIONS 
KAKKAKKKAKAKRKAARKRKARKAAAAKAARKKAARKAARARAAKKRAKKARARRKAAAARKRARARAAAKKAKRARK 


KARKKKAKRRKKRKKKRAKKRKAKKRAR 


2> READ INPUT DATA << 
KKAKKAKAKARKKAKARKKRKARAR 


KCASE=1 
RKRUN=0 
KBOUND=1 
DTIME=.001 
TORITE=1. 
TWALT=1. 
TMAX=5. 
NHSZ=1 
‘IPRNT=5 
NRAD=2 
OD=3.223E05 
TIME1=30. 
TIME2=60. 
NI=22 

NJ=18 

NK=18 


WC=40.2 
DC=17. 
HC=17. 


*X*X READ INPUT DATA 
AKK READ # 1 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSssSssssssssssssssssssssssss 
EAD ee KRUN, KBOUND , DTIME , TWRITE , TWALT , NRAD , TMAX 


REA 
SSSSSsssss SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS$ 


tee KRUN , KBOUND ,DTIME,TWRITE,TWALT ,NRAD, TMAX 
602 FORA tie gaeUN =' .13,2K, 'KBOUND =',13,2X,'DTIME =',E11.4, 
&e2n, tee" E11.4,/,5X,'THWALT =',E11.4,2X%,'"NRAD =', 


“— 
 (n 


Se. 


C 
C 


C 

CC 
we 
ee 


e 
C 
S 
C 
C 
C 
C 
G 
e 
C 
e 
e 
G 
C 


MO 


MAMM O”MMAMNMMM MAADM AANANDM MAMNM 


AMO 1 AAA 


& 14,2X%,'IMAK =" Ea 
xAX READ # 2 


—- a Gee Gee Gee Gee Gee ae cee Ge oe oe 
= oe coe ee eo 


READ(5,*) QD,TIME1,TIME2 


WRITE(6,801) QD,TIME1 , TIME2 
801 FORMAT(/,5X,'QD =', Ell . owes ek, ee ee eee 
& | SEC.!' , 3%, *DIMEZe—" oe ee) 


C 
xX WHEN KBOUND = 3 OR 4 


MOST OF THE INPUT INFORMATION CAN BE OBTAINED FROM VIEW FACTaE 
PROGRAM WHICH IS A SEPARATED FORTRAN PROGRAM CALCULATING 
VIEW FACTOR BETWEEN ANY TWO TANK WALL ZONES AS WELL AS BETWEEN 
HEAT SOURCE AND TANK WALL ZONE. 
ONCE THE VIEW FACTOR, A MAXTRIX FORM, IS CALCULATED, ALL VARWAiiaiS 
ARE STORED INTO A FILE, SAY VIEW.DATA, EITHER @N DISK OR Tame 

xAXX TIF KBOUND IS NOT 3 OR 4, THEN ALL INPUT CARDS WILL BE READ 


KAEAKKKKAKAKARKKAKAKAKKKKKKKAKAKKAKAKKKAKAKARKAKAAKKKAKKKARARKARKKKKAARAKRKKRKRK 


’ % ’ 1 % 4 . 1 * ‘ . 1. * we e«¢ @ © @ © # @ @ = © 9» 6 © © @ CVO 6 ££ « © 8 Se le Ue US eee ee Ce ee Le Ue Ue Le Ue ee ee eee 


=_——— —— on ee oe oe 
a oe ae Ge Gee Oo Ge Oo eee oe eee ae 


READ(5,*) WC,DC,HC,NI,NJ,NK 
AXA READ # 4 


= SS Se ee ee cm ee ae ee 
— ee ee a mm om 


READ(5,*) NHSZ 
KX 


i IF NHSZ > 1, THEN READ NHSZ SET OF CARDS FOR READ GROUP Z TO 4 
aw 

DO 11 I=1,NHSZ 
AAKX READ # 5 


oo Se Ge Gee Gee Se eee Ge ee ee ee Oe oe 
—_— = ce eo ee i ee ee 


READ(5,*) LTYPE 
& 


(I 1), LTYPE (I, 2) LT¥PE(1,3),LT¥PE(2;4) a 
LTYPE(I,6 


AAK READ # 6 


——_ eee ene eee 
TT ee 


*kK READ POSITION AND SIZD DATA FOR HEAT SOURCE 
READ(5,*) IHSB(I),NHSW(I),JHSB(I),NHSD(I),KHSB(I),NHSH(I) 
*RK READ # 7 


— — Sa eG ee 
= a ce ea ee 


READ(5,*) MIIZ(I),MJJZ(1I) ,MKKZ(TI) 
AK READ # 8 | 


READ(5,*) ITHIN(1 ) JmeeaN( 7) Raa a 
Pf) CONTINGE 
AKK READ # 9 


READ(5,*) MI,MJ,MK 
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C1OYORVIM 1 


M10 




















READ(S,*) (LI(1I),I=1,MI 
READ(5,*) (LOCI), I=1,MJ 
READ(S,*) (LK(I),I=1,MK 
GO TO 7235 | 


7234 CONTINUE 
*AXX READ VIEW FACTORS MATRIX AND ZONE CELL NUMBER 


SSS SSS SSS SS SS SSS SSS SSS SS SS OSS SOS SS OS SOS SSS OSS SSS SSSSSSSSSSSSSss 


READ(15) 
& IREGN1 , IREGN2, IREGN3, IREGN4, IREGNS , IREGN6, IREGN7, 
& MREGN1,MREGN2,MREGN3, 'MREGNG4. MREGNS ,MREGN6, 'MREGN7, 
& WC,DC,HC,NI,NJ,NK,AXY,AYZ,AZX, 
&  MIIZ,MJJZ,MKKZ,MI,MJ,MK,LTYPE,MZ,NHSZ,NZ,LI,LJ,LK, 
& ITHIN, JTHIN, KTHIN, IHSB,JHSB,KHSB,NHSW,NHSD,NHSH,VIEW,AREA 


SSS SSS SSS SSS SSS SSS SSS SSS SS OSS SS SOS OSS SS SSS SSS S SS SSS SSSSSSSSSSssss 


WRITE(6,667 ) 
& IREGNI, IREGN2, IREGN3, IREGN4, IREGN5, IREGN6, IREGN7, 
& RECN IS /MREGN2, MREGN3 ,MREGN4 ,MREGNS5 ,MREGN6 ,MRECN7, 
& WG DC , HC, NI, NJ LE, 
& MI ,MJjMK,NZ,NZ,NHSZ 


667 FORMAT( 5X,' READ DATA FROM FILE 15, CALCULATED FROM VIEW ', 
'FACTOR SROGRAM J (po, SeeGll = ese 2K, TREGNZ =' ,13,2%, 
eests =' ,13,2%, 'TREGN4 =! mle, 2X, 'IREGNS Slo 2a eR eIGo =! 
13,2X, | IREGN7 ‘=!/13,/,5X, 'MREGNI =! ,13,2X%, 'MREGNZ =!',13,24, 
'MREGN3 =!,13,2X%,'MREGN4 =!',13,2X,'MREGN5 =!',13,2X,'MREGN6 =', 
heme, MEEGN?7 =',13,//, 

Breen = oii,’ FO’ 3x,'DC =), Hll.4,° FT" ,3X%,'HC =',£11.4, 
ime oe NL =', 13,38; Nd =) 5s, 34, ar =! Is, 

Ske L,. =! Stee Sali =) lS pou eae ioe Sy 'MZ Se Sa 3/20, 

Win = 3 LE SX eHO . OF HEAT SOURCES =! 13 my / ) 


C 
a CONTINUE 
WRITE(6,21) WC, DC, ney EL Nag NK 
Za FORMAT (5X, 'WC = Pores, FT! Poe oli 4! FT”, Sk; 
& ne =" polit, FT! ,/, 
peo, NL = ,13,64,'NJ =o /13,6X, 'NK = ows) ) 


WRITE(6,31) NHSZ 
Sa FORMAT (5X, More NUNea OF HEAT SOURCES, NHSZ :',12,//) 


DO 91 I=1,NHSZ 


SZ $Z $Y $V KL LP |? ZW § 





WRITE(6, 12) I, LTYPE(I,1),LTYPE(1I,2),LTYPE(1,3),LTYPE(1I,4), 

& LTYPE(I,5),LTYPE(1I,6),IHSB(1),JHSB(1),KHSB(I), 
eg NHSW(1).NHSD(I),NHSH(T), MIIZ(1) ,MJJZ(1), MRKZ (I), 
iS ITHIN(1),JTHIN(T), RIHIN(T), 

12 FORMAT(S5X,'HEAT SOURCE NUMBER :',12 
& 10X,'ITS 6 SURFACE TYPES ARE : seniee oy) =',612,//, 
& 8X,.'LOCATION OF THIS HEAT SOURCE ........ ie 
& 10X,'STARTING CELL NUMBER IN X-DIRECTION : IHSB = ',I2,/, 
& 10X,! Y-DERECTION : JHSB = ',12./, 
10% Z-DIRECTION : KRHSB = ',12,//, 
& 10X, ! AND THE CELLS IN X-DIRECTION : NHSW = ',12,//, 
& 10X,! Y-DIRECTION : NHSD = ',12,//, 
& 10x. | Z-DIRECTION : NHSH = ' 12,//, 
& 10. 'LOCATION OF THIS HEAT SOURCE RADIATION EXCHANGE ZONE', /, 
& 20X,'ZONE NUMBER IN X-DIRECTION : MIIZ(1) = MII = ',12,/, 
& 20X,' Y-DIRECTION : MJJZ(I1}) = MJJ = ',12,/, 
& 20%, ! Z-DIREGTGON eahkKKauy = MK = ',12,//, 
& 10X,'THIS HEAT SOURCE ZONE HAS |, //, 
ceo et = 'I2,' ZONE THICKNESS IN X-DIRECTION' ,/, 
& 20X%,'JTHIN(1) ='|12,' ZONE THICKNESS IN Y-DIRECTION',/, 
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& 20X,'KTHIN(I) =',1I2,' ZONE THICKNESS IN Z-DIRECTION',//) 
91 CONTINUE | 


WRITE(6,18) MI, (LI(I),I=1,MI) 
18 FORMAT(10X,'THERE IS ; MI =',12,' ZONES IN X-DIRECTION',//, 
&  20X,'THE NUMBER OF CELLS IN EACH ZONE IS ; LI(I) =',1013,/) 
WRITE(6,19) HJ, (bJ(J) J=it) 
19 FORMAT(10X,'THERE IS ; MJ =',I2,' ZONES IN Y-DIRECTION',//, 
&  20X,'THE NUMBER OF CELLS IN EACH ZONE IS ; LJ(I) =!,1013,/) 
WRITE(6,20) MK, (LK(K), K=1,MK) 
20 FORMAT(10X, 'THERE IS ; MK =',12,' ZONES IN Z-DIRECTION' ,//, 
&  20X,'THE NUMBER OF CELLS IN EACH ZONE IS ; LK(I) =',1013,/) 


MZ=2* (MI*MJ+MI*MK+MKAMI ) 


WRITE(6,308) MZ 
308 FORMAT(5X,'TOTAL NUMBER OF ZONES ON TANK WALL =!,13,/) 


DO 668 L=1,NHSZ 

WRITE(6 ,669) L LIVPE(D, 1) LOWPE(L.2) eis) Meee 
& LTYPE(L,5),LTYPE(L,6) ,MIIZ(L) ,MJJZ(L) ,MKKZ(L) 
& IHSB(L),JH 


SB (L) ,KHSB(L) , NHSW(L) ,NHSD(L) wees 


& ITHIN(LS ,JTHIN(L) ,KTHIN(L) ,AXY(L),AYZ(L) , AZX 


& 2X, 'AZX 
668 CONTINUE 
DO 766 L=1,NHSZ 
MIIT=MIIZ(L 
MJJ=MJJZ(L 
MKK=MKKZ(L 
es Lyi 
767 FORMAT(/,5X,'HEAT SOURCE NO. ',12,2K,'MII =',13,2x4, Mom) seen 
& on, AMKK =", 13;/) 
766 CONTINUE 


WTHICK=2./12. 


NIM1=NI-1 
NJM1=NJ-1 
NKM1=NK-1 
NIM2=NI-2 
NJM2=NJ-2 
NKM2=NK-2 


L 


669 FORMAT(5X, HEAT SOURGH Gee. i277] 
& 5X,'LTYPE =',613,/,5A4, MIL =',13,25) ee = 
& 2X, 'MKK =!) ieee 
& oe eee =" 12,25, -omoene = 725 28 nr = ee 
& 5X,'NHSW(L) =',12,2K,'NHSD(L) =',12,2e, "NM — 28 
& 5X, 'ITHIN(L)=',12,2X, 'JTHIN(L)=',12,24%, ‘KIRIN L)—' , 125 
= ae acy =' E11.4,' FI**2%@ 


& ten 7 
Ell.4, 0 maa, 


H=HC 

DZ=HC/ (NKM2 
DK=WC/ (NIMZ2 
DY=DC/ (NJM2 
XDK=WC/ (NIMZ 
YDY=DC/ (NJM2 
ZDZ=HC/ (NKM2 


DO 821 N=1,NHSZ 

XIHSB=IHSB(N)*DX*H 

Y JHSB=JHSB(N)*DY*H 

ZKHSB=KHSB(N)*DZ*H 

XNHSW=NHSW(N) *DX*H 

YNHSD=NHSD(N)*DY*H 

ZNHSH=NHSH(N) *DZ*H 

WRITE(6,822) N, XIHSB,YJHSB,ZKHSB , XNHSW, YNHSD , ZNHSH 

822 FORMAT(/,5X,'HEAT SOURCE NO. ',12,/, 
& 10X,'ITS LOCATION IS ',E11.4,% FT BROM e077; 


hi 
H 
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& 10X, 1 £11.4,' FT FROM Y=0',/, 
mo. 1'E11.4,' FT FROM Z=0! 
© 10%, ‘ITS THICKNESS IS ',E£11.4,' FT IN X-DIRECTION',/, 
- 10x, \'E11.4,' FT IN Y-DIRECTION' ,/, 
e 10x, ('E11.4,' FT IN Z-DIRECTION',//) 
821 CONTINUE 
C 
U0=1.0 
XTIMEI=0. 
C NFIRE IS AN UNNEEDED VARIABLE LEFT OVER FROM ALTERATIONS. 
C TO GET RID OF IT SEVERAL PRINT STATEMENTS MUST BE ALTERED. 
: NFIRE=1 
: ee SOS SSS 9599555995999 9999S99S9599S5S95SS5$SS$5 
NWALT = 10 
, - NWRITE = 10 
c NWALT=TWALT AE a 
C NWRITE=TWRITE*UO/(DTIME*H 
é 
: 99S S95 DOO S SOD OSS ON SOOO SPOS IO SSS SP SOOO SOSOIOOOS SSO 
C *** PRINT OUT INPUT INFORMATION 
c 
WRITE(6,1)(STAR,I=1,100),KCASE,KRUN, TWRITE, TWALT , DTIME 
e MHe WC, DG XDX, YDY,ZDZ, 
& OD, TOD, NWRITE,NFIRE, TMAX 
1 FORMAT(///,100A1,///,1X, '*** THREE~DIMENSIONAL NUMERICAL ', 
& 'SIMULATION OF THE NAVY STORAGE TANK:',/, 4x 
e Ye CASE NO. = '.12,' >',//)4k,'# KRUN 12 yaw 
& '# TWRITE =',F6.1,/,4X, i TWALT =',F6.1, 
&/,4X,'# DTIME =',F6.3,//,4X,'# THE ENCLOSURE : HEIGHT =',F6.1, 
&! FEET! ,2X,'WIDTH =',F6.1,' FEET',2X,'DEPTH =',F6.1,!' FEET',//, 
& '# THE GRID CELL SIZE : DX =',F6.1, 
bl mem!’ 2% ' DY =! F6.1," FEET’, 2X,' DZ =',F6.1,' FEET',//, 
&5X 'TOTAL HEAT INPUT ; OD =', E11.4,' WATTS =',E11.¢,' BTU/HR',/, 
& 5X,'NWRITE =',14,5X,'NFIRE =',14,/, ) 
; & 5X 'TMAX =',F8.2,' SEC.',//) 
GO TO (1132,1133,1134,1135),KBOUND 
1132 WRITE(6,1136)KBOUND 
Corto 1141 
1133 WRITE(6,1137)KBOUND 
e910 1141 
1134 WRITE(6,1138)KBOUND,NRAD - 
Go Te 1141 
1135 WRITE(6,1139)KBOUND , NRAD 
a1141 CONTINUE 
1136 FORMAT(4X,'< KBOUND =',13,' >!,/,6X,'PURE CONVECTION WITH |, 
& ‘INSULATED WALL IS CONSIDERED IN THIS CASE.', 
1137 FORMAT(4X,'< KBOUND =',13,' >',/,6X,'PURE CONVECTION WITH ', 
& ‘WALL CAPACITANCE IS ‘Cons rweREt IN TH®S CASE.' //) 
1138 FORMAT(4xX,'< KBOUND =',13,' >',/,6X,!BOTH CONVECTION AND ', 
& ‘SURFACE RADIATION ARE INCLUDED IN ‘THIS CASE WITH WALL ', 
& 'CAPACITANCE.',/,4X,'# NRAD =',13,' TIME STEPS TO UPDATE THE ', 
& 'RADIATIVE HEAT FLUX.!,// 
1139 FORMAT(4X,'< KBOUND =! 13, ' _/,6X,'BOTH CONVECTION AND |, 
& SURF ACE RADIATION ARE incripen IN THIS CASE WITH INSULATED', 
& ' WALL.',/,4X,'# NRAD =',1I3,' TIME STEPS TO UPDATE THE', 


& RADIATIVE HEAT FLUX. *** NOT AVAILABLE RIGHT NOW! ae 


c 
C KKAKKKKAKKAKKRKAAKRKKKRRAKRKARARARAKKRAKRKKAKKRRARKAKAKRRKAKRARRKKKARKAKRARARKKAAKAKRAR 


e 
C kK 
c 


Peele toe CONSTANT VARIABLES IN THE CALCULATION PROCESSES 
DXY=DX*DY 


low 


elexe) 


AAAM OOO 


374 FORMAT 


ARK 


ARX 


KAR 


ARK 


DYZ=DY*DZ 
DZX=DZ*DX 
DX4=Dx*4., 
DY4=DY*4. 
DZ4=D2*4. 
DXZ=DR*Z. 
DY2=DY*2. 
DZ2=DZ*2. 


VOL=DX*DY*DZ 
UH=H/UO 
GC=32.17 
RAITR=53.34 


VOLDT=VOL/DTIME 

nuemea gay, (uaa) 

UGRT=U0*U0/ (GC*RAITR*TA) 

ee BUOY , UGRT | 
/,5X,'1/F = BUOY = ',E11.47>5x, "Gl=etGn a — ei 


XYOZ=DKY/DZ 
YZOX=DYZ/DX 
ZXOY=DZX/DY 

PRI=1. 

XYPZ=XYOZ/PRT 
YZPA=ViazGis7 PRT 
ZAPY=ZKOY/PRT 

VISE=@. 265-4) /(HAU0) 
VISMAX=VISL*400. 


DZXO2=DZK*.5 
DYZO2=DY2*.5 
DXYO2=DXY*.5 
DZXO4=DZK*. 25 
DYZO4=DYZ*.25 
DXYO4=DxY*. 25 


XYPZ2=KYPZ*2. 
YZPK2=YZPK*2. 
ZKPYZ=ZXPY*2. 
XYOZ2=KYOZ*2. 
YZOK2=YZOK*2. - 
ZXOY2=ZKOY*2. 


CONST4=H*30.48 

CONST6=U0*30.48 

CONST1L=RA*UO*U0/ (GC*14.696*144. ) 
ONT T=2 . 


FOR WALL CAPACITY 


CELLB =FLOAT(NIM2*NJM2) 
CELLT =CELLB 
CELLRE=FLOAT (NIM2*NKM2) 
CELL =CEEERE 
CELLL =FLOAT(NJM2*NKM2) 
CELE =CELLL 


CONSTANTS FOR RADIATION CALCULATION 


CONSRA = TA*TA*TA/ (RA*CPAIR*U0*3600 .*H*H) 


CONSTANTS FOR WALL CAPACITANCE 
WIHICK IS THE TOTAL WALL THICKNESS, NOT THE CELL THECKNESS 


WEHICK=3./6./i2. 
DXW=WTHICK/2.0/H 
DYW=DAV 

DZW=DAW 
VOLW=DKW*DX*DY 





CPWALL=0 .104 
CONSTA=CPAIR*60. *RA*U0*H 


e 
C *** ALFAW AND BETAW ARE USED FOR WALL THERMAL CAPACITY CALCULATION 
Cc . 


CONDEW=35.0 

Ge ALFAW=. 000208/CONSTA*CONDEW 

CC BETAW=.000000731*TA*2./CONSTA *CONDEW 

C *** THE NEW ALFAW BELOW IS IN UNITS OF BTU/SEC/FT/DEGREE F 
ALFAW=35.0/3600.0 
BETAW=0 .0 


c 
C *** HCOEF, CCOWL,CCOWR,CCOWRE,CCOWF, CCOWB, AND CCOWT ARE USED 
c IN #CALT# FOR WALL TEMPERATURE CALCULATION 

c 


HCONV=7 .5 

HCOEF=HCONV*4. / (3600 .*CPAIR*RA*UO ) 

CCOWL =CELLL *RWALL*VOLW ACPWALL/ (CPAIR*DTIME*RA 
CCOWR =CELLR *RWALL*VOLW *CPWALL/ (CPAIR*DTIME*RA 
CCOWRE=CELLRE*RWALL*VOLW *CPWALL/(CPAIR*DTIME*RA 
CCOWF =CELLF *RWALL*VOLW *CPWALL/ (CPAIR*DTIME*RA 
CCOWB =CELLB *RWALL*VOLW *CPWALL/ (CPAIR*DTIME*RA 
tee es ARWALL*VOLW *CPWALL/ (CPAIR*DTIME*RA 
TINF=1. 


WRITE (6,2334) HCONV,CCOWL, CCOWR, CCOWRE , CCOWF , CCOWB, CCOWT, 
& ALFAW, BETAW 
2334 FORMAT(2K,'*** THE CONVECTION COEFFICIENTS ARE ', 


~ RREUT, 
DO DO BO BO BO BO 
OOOoQ@®d@® 





Seu Pr oleh BY & FACTOR AT THE WALL = ',F10.4, 
& 5X,'CCOWL =!,E11.4,2X,'CCOWR =!',E11.4,2X, 'CCOWRE =',E11.4, 
eae econ =| ,511.4,2%,'CCOWS =',E11.4,2%,*CCONT =!,E11.4,/, 
& 5X,'ALFAW =!,E11.4,2K,'BETAW =',E11.4,/) 
RREKKAAARKAKRAKRKAAKAKRRKAARKRA RA KA RAK KAR KAA K RRA RK RAR KARA KARA AKKKKKKKAKKKKAR 
e 
oo Livi aie TE CONDUCTIVITY FOR .TEE WALES? 
Cs Oye tne Choe: KBOUND == 3 AND thesia ol KUN. 
C 
ee: .NE.3.AND.KBOUND.NE.2)GO TO 726 
PP. KRUN. EO. 1)GO Ory Zo 
e 
C Melba 0,1335)KCASE 
C Meele (13,1335 )KCASE 
C Wiel 14 , 1339 RCASe 
C1335 FORMAT(2X,' *** THIS IS CASE !,12,! ***!) 


DO 728 I=2,NIM1 
DO 728 K=2,NKM1 
DO 728 J=1.2 
TWE pe. Kj= 
TWRE(I,J.K)= 
728 CONTINUE 
DO 731 J=2,NJM1 
DO 731 K=2,NKM1 
DO "i T=1 2 
TWR J,K)=1 
TWL i ‘JK 
731 CONTINUE 
DO 729 I=2,NIM1 
Dorg2o-J=2 NoM1 
DO 729 K=1.2 
TWT ek =) 
TWB (I,J.K)=1. 
729 CONTINUE 
726 CONTINUE 


*xzX DEFINE VERTICAL NODE POINTS AND COMPUTE HYDROSTATIC 
EFOUTEL BR IUM aDElisid TY 


Z(1)=-.5%DZ. 


AAAN 


toy 


Zi 2)=058"DZ 
DO 93 K=3,NK 
Z(K)=Z(K-1)+DZ 

93 CONTINUE 
AAAA=-1.*BUOY*UGRT*Z(1) 
REO(1)=EXP(AAAA) 
DO 13 K=1,NK 
AAAA=Z (K)*BUOY*UGRT 
REQ(K)=1./EXP(AAAA) 

13 CONTINUE 


XXX DEFINE THE INITIAL VALUES 
TOTMS=0. 
DO 220 K=1,NKM1 


DO 220 J=1,NJM1 
DO 220 I= i, IML 


mY AaAANM 


~~ 


ed 

td 
HHH 
Cy Cy Cy Cy Cy Cy Cy Cy CH Cy Cy Ca Ga 


me ogo oO ae 
I 


DW(L,J,R)=0. 
TOTMS=TOTMS+REQ(K) 


220 CONTINUE 
TOTMS=TOTMS*VOL*H*H*H*RA 
WRITE (6 376) TOTMS 
376 FORMAT(5X, INITIAL TOTAL MASS = ',E11.4,' LBM',/) 
IF(KRUN.EQ.1)GO TO 2226 
DO 2222 K=1,NK 
DO 2222 J=1,NJ 
DO 2222 I=1.NI 
VIS(I,J,K)=VISL 
UOD(I,J,K)=0. 
VOD(I,J,K)=0. 
WOD(I.J,K)=0. 
TOD(I,J,K)=1. = 
ROD(I,J,K)=REQ(K 
P(T,3,K)=0. 
C NOD(I,J,K)=0 
2222 CONTINUE 
DO 2223 K=1,NKM1 
DO 2223 J=1,NIM1 
RLM} J /K)=0. 
RRW(J K)=0. 
2223 CONTINUE 
DO 2225 I=1,NIM1 
DO 2225 J=1,NJMl 
BBL 3 )=0. 
RTW(I,J)=0. 
2225 CONTINUE 
DO 2227 I=1,NIM1 
DO 2227 K=1,NKM1 
RFW(I,J)=0. 
Peew(l.J)=0. 
2227 CONTINUE 


C 
C *** OSIN, QSWAL AND QSAIR FOR HEAT GENERATION AND LOSS THROUGH 
c AIR AND WALL. 
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C *** RADHS : RADIATIVE HEAT FLUX FROM HEAT SOURCE 


C 
RADHS=0. 
OSIN=0. 
OSWAL=0. 

2226 CONTINUE 


IF(KRUN.NE.1) GO To 9999 


*x*X READ THE DATASET OF LAST JOB FROM THE TAPE OR THE DISK 


C KAKKKKAKKRKAKAKKARKARKKKAKKKKAKKKRKAKKAKRAKKKAKKAKARKKKAKAKKARKAAKAKRKAKAAAARAKRK 


9997 READ(8,END=151) 
ee, NIMAXO, TOD,ROD,UOD,VOD,WOD,P,VIS,ATIMEL 
Siveit Oonwnl, QoalR,PCURIL, Pil] GcORRT 
at TWF ,TWRE,TWR ,TWL ,TWB ,TWT ,RLW,RRW,RREW,RFW,RBW,RTW 
RADHS /ORADF, ORADW ORADB , -ORADL, ORADR QRADT, QRADRE 
e Ree eee os DEON OREOe PROOr Cheb RAEKKARKAREKEKKKRAAKKAKKAKKE 
COmlOsgo 77 
151 BACKSPACE 8 
ee NTMAXO=TIME/DTIME 
9999 CONTINUE 
‘ IFCXTINE.GT.TMAX)GO TO 9303 


DO 221 K=1,NK 
DO 221 J=1,NJ 
DO 221 i=l, Ni 


qa OO 


KRAKKAAKKKKKKKKRKRAKKKRAKKAKRKAKKAKKKKKKKKAKAKKAKKKAKAAKKKKKAKKKKKKAKKAKKKKAKKAKKKK 


*x*X*X THE FOLLOWING SECTION CAN BE SKIPPED 
WHEN RADIATION IS NOT CONSIDERED. 


IF (KBOUND.NE.4.AND.KBOUND.NE.3) GO TO 1234 
**x* CALCULATE THE # OF CELLS IN EACH WALL-ZONE 


eae i=) 1, cae 
ARRA(LYSARSA(L) /DYZ/H/H 
5 CONTINUE 
Dorcel MREGNS+1, MREGNS 
AR(L)=AREA(L 
AREAL): SAREA(L) /DZX/H/H 
6 CONTIN 
DO 7 ie MREGNS#2, MREGN7 
AR(L)=AREA(L 
AREA(L)=AREA(L)/DXY/H/H 
7 CONTINUE 
DO 670 L=MREGN7+1,NZ 
AR(L)=AREA(L) 
AREA(L)=1. 
670 CONTINUE 


AAM ANAMAMNYA 


xX ADJUST THE VIEW FACTORS FOR ALL ZONES SUCH THAT THE SUMMATION 
OF ANY ZONE TO ALL OTHER WALL ZONES TO ONE 


763 CONTINUE 
DO 768 I=l 
SVIEW(I)=0. 
DO 760 J=1 


MAaAMM 


161 


SVIEW(I)= SVIEW(1)+VIEW(I,J) 
760 CONTINUE 
C WRITE(6,769) I,SVIEW(I) 
C 769 FORMAT(5X,'I ='/13,3x,'S VIEW =',E11.4) 
768 CONTINUE 
SMX= SVIEW(1) 
IMX=1 
DO 761 I=2,NZ 
IF (SVIEW(I).LT.SMX)GO TO 761 
SMX=SVIEW(I) 
IMX=I 
761 CONTINUE 
CV WRITE(6,770) IMX,SMX 
CV770 FORMAT(5X,'IMX =',13,3X,'SMX =!,E11.4) 
DO 762 I=1,NZ 
VIEW(IMX,I “VIEW ( TMK, 2) /SVIEM (THK) 
VIEW(I, IMX)=VIEW(I, IMX) /SVIEW(IMX 
C WRITE(6.771) I,VIEW(IMX, 1), VIEW(I, IMX) 
C771 FORMAT(5x,'I =',13,2X,'VIEW(IMX,I) =!,E11.4,2X, 'VIEW(I,IMX) =', 
C & E11.4 
762 CONTINUE 


IF(SMX.GT.1.) GO TO 763 
DOn 765 em—d) NZ 
VIEW(I,1)=1.-SVIEW(I) 
765 CONTINUE 
c 


CV WRITE(6,161) 
CV161 FORMAT(5X,'((VIEW(I,J),J=1,NZ),I=1,NZ)',/) 


G 

Gy CALL WRITE2(VIEW,NZ,1,NZ,1,NZ) 

C 

C *** CAMGUDATE RADIATIVE COEF ICEEIVM wR rx 


C 
Co RAKKKAKKKARKKKKKARKAKKKAKARKR 


CALL VIEWMA 
C RKKKKKKKAKAKKAAKKAAKKKAAKAKK 


ee AR(LZ) 
2331 FORMAT(/,4X,' THE REAL AREAS USED IN RADIATION CALCULATION ARE', 
& /, 4X,'# HEAT SOURCE = ',F10.4,' FT**2!',//,5X,'AR() FOR ', 
& ‘INTERIOR WALL IN EACH WALL ZONE (FT**2), I=1,MZ',//) 
WRITE(6,*) (AREA(I) , I=1,MZ) 


CALL WRITE1(AR,1,NZ) 
Sue 

101 FORMAT(5X,' AREA(); # OF CELLS IN THIS ZONE',/) 
CALL WRITE1(AREA,1,NZ) 


e 
1234 CONTINUE 
e 


ae (STAR, 1=1, 100) 
2333 FORMAT(100A1,//) 


MO 


KKEKKKKAKKKKKEKEKKRKAAKKKKARKEKKRKKKKKAKKAKKKRKKAAKKERKRKRKKRARKRKRKKEKKRKKKKKRKKKRKKRRRKER 


>>> RETURN HERE EVERY. [= 
KAARAKKAKARKKAKKAKKKAKAAKKRRAA RAR RRAKKKK AK KK RAK AKKKKKKKEKKKKAAKK RKKKKKKARAKK 


300 CONTINUE 


Wea 6 290%) | 

3900 FORMAT(6X, 'NTREAL' ,5X,'TIME(SEC)' ,9X,'KTGP' ,5X,'PCORR(TOT)', 
& 5X,'%PF/PI',7X, 'ITER',9X, 'RESORM=! , 8X, 'SORSUH=',//) 

C 


NT=NT+1 
ITER=0 
NTREAL=NT+NTMAXO 
T RVE=TIMNE+DIIME 


NY ANNMMOAMMNA 
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XTIME=TIME*H/UO 
C 
C *** THE TRANSIENT HEAT INPUT 


C 

cc TIME1L=DTIME*10.0*H/UO 
TIME2=85.71 
TIME S=120..0 
TIME4=240 .0 


cc IF(XTIME.GT.TIME1) GO TO 60 | 
EC PCURVE=(.9167491E-5*XTIME*XTIME )+(.3306313E-3*XTIME)+(1.0) 
ae DPDT1=(1.8334982E-5*XTIME )+(.3306313E-3) 
CC §©00=8.316E7*DPDT1/TIME1*XTIME*2.0876 
CC GO TO 61 
60 IF(XTIME.GT.TIME2) GO TO 62 
PCURVE=(.9167491E-5*XTIME*XTIME )+(.3306313E-3*XTIME)+(1.0) 
DPDT1=(1.8334982E-5*XTIME)+(.3306313E-3) 
Q0=8.316E7*DPDT1*2.0876 


C 

C *** IN MANY OF THE FOLLOWING LINES A TEMPORARY CORRECTION FOR 

er) * BeowolliNGeUO, [OSAGREE WEI [THE PRESSURE HAS BEEN APPLIED. 
eee) OLDER CODE IS IDENTIFIED BY Cc. 

€ 


GO TO 61 
62 IF(XTIME.GT.TIME3) GO TO 63 | | 
PCURVE=(- .2138189E-20*XTIME*%*6 ) -( .2435482E-12*XTIME**5 ) + 
ee) (1 7620870 oN TEE : 
.3518094E-4*XTIME*XTIME ) -(.7541231E-3*XTIME)+1.0031876 
DPDT2=(-1.2829134E-20*XTIME*XT IME*XTIME*XT IME*XT IME ) - 
1.217741E-12*XTIME*KTIME*XTIME*XTINME ) + 
1.400438E-9*XTIME*XTIME*XTIME) -(5.347941E-7*XTIME*XTIME) + 
7.036168E-5*XTIME)-(7.541231E-4) 
Q0=8.316E7*DPDT2*2.0876 
GO TO 61 
63 IF(XTIME.GT.TIME4) GO TO 64 | 
PCURVE=(- .2138189E-20*XTIME*%6) -(.2435482E-12*XTIME**5) + 
& ve Eee ae 
& .3518094E-4*XTIME*XTIME) -(.7541231E-3*XTIME)+1.0031876 
DPDT3=(-239.0/3.0E7*XTIME)+(3.112E-3) 
Q00=8.316E7*DPDT3*2.0876 
GO TO 61 | | 
64 PCURVE=(- .2138189E-20*XTIME*%*6) - ( .2435482E-12*XTIME**5 )+ 
& Re cers) «1 emacs) 
& .3518094E-4*XTIME*XTIME) -(.7541231E-3*XTIME )+1.0031876 
te ce 200) Te 20 7 Manne ~420.0))+ 
(-1.648E-8%* (XTIME-420.0)*(XTIME-420.0))+(.0009) 
-  QQ=8.316E7*DPDT4*2 .0876 
61 CONTINUE 
0=00*3.4134/60./60. 
65 CONTINUE 


| SRETe (18) TINE, ¢ 


$9 LK» LM 


C 
C *** THIS ENDS THE TEMPORARY PRESSURE CORRECTION IN THIS PROGRAM AREA 
E 
DO 824 N=1,NHSZ 
ODOT (N)=0/H**3/NHSW(N) /NHSD(N) /NHSH(N)/DX/DY/D2Z 
824 CONTINUE 
E 
C %*k* TIME DURATION BETWEEN PRINTOUTS 
E 
NTRWR=NTREAL/NWRITE*NWRITE 
NTRWA=NTREAL/NWALT *NWALT 
C 
e 
C *** WALL CAPACITANCES ARE THE FUNCTION OF TEMPERATURE. 
e 
IF (KBOUND.NE.2.AND.KBOUND.NE.3)GO TO 722 
C 


DO 725 IT=Ze0M1i 
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DO 725 K=2,NKM1 

CPF (13,5) sae ae NJ, Q 

CPRE(1,3,K)=ALFAW+BETAW*T(I,1 ,K 

Hoey 25 J=0 2 

CPF (1,3, K)=RLERA+ BELAWATWE (2.4,K) 

CPRE(1,J.K)=ALFAW+BETAW*TWRE(I,J,K 
725 CONTINUE 

DO 724 J=2,NJM1 

DO 724 K=2,NKM1 

CPR Se pee wes ae 1 

CPL (3,J,K)=ALFAW+BETAW*T(1, J,K 

DOn?24 Tai | 

CPR (1d, K) aaa eas (Tlie 

CPL (1,J,K)=ALFAW+BETAW*TWL (1I,J,K 
724 CONTINUE 

DO 723 1=2,NIM1 

DO 723 J=2,NJMl 

CPT a ae AR) 

CPB (I,J,3)=ALFAW+BETAW*T(I,J,1 

DO 723 K=1,2 | 

CPT (1. eee (1 re 

CPB (I,J,K B (1 ee 


ALFAW+BETAW*TW 
723 CONDE : 
722 CONTINUE 


AK*X CALL CALVIS TO CALCULATE TURBULENT Viseeorr: 
*ss5SGiinents ie si)eo 20 toes, | 


EAL.LE.51)GO TO 4020 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


RARRKRAKKRKARKRRKKKRRKARAKKRARKRKKKKRRKK 





CALL CALVIS 
KEKKKRAKKKRKKRKKRARKKRKRKKRAKRKK 
4020 CONTINUE | 


AAA CALL SURRAD SUBROUNTINE TO CALCULATE RADIATIVE FLUX EVERY 
UNRAD" TIME stars 


IF (KBOUND.NE.3.AND.KBOUND.NE.4)GO TO 1237 
Toe ae > 
SPOS ShelS LS O ORIN SSS GS S555 
IF (NTREAL.NE.NTREAL/NRAD*NRAD)GO TO 1237 
DO 8 N=1,NHSZ 


MQ ANAANNA AANA AAT ANAM AMMA 


LZ=MZ+N 
IB=IHSB(N) 
IE=IBt+NHSW(N)-1 
JB=JHSB(N) 
JE=JB+NHSD(N)-1 | 
KB=KHSB(N) 
KE=KB+NHSH(N)-1 
D=0. | 
SUM=0. 
DO 680 I=IB,IE 
DO 680 J=JB,JE 
DO 680 K=KB,KE 
Sune SUM+T(1,J3,K)*T(1,J3,K)*T(1, 0) Re eee 
D=D+1. 

680 CONTINU 
Onis SUM/D | 
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WRITE (6 2) N, T4ZON (LZ) 
9 FORMAT(/,5X,'HEAT SOURCE NUMBER :',1I2, 
& E11.4,3X,'AVERAGE TEMP. **4 =' £11.4,/) 
8 CONTINUE 
é 
e RKRARKRKRRRRKKARRRRKRKKKKRKKKKRRKRRKKKKKRKARREKRK 
e 


CALL SURRAD 
c 
C RAKKKKKRKKAKAARAKKKKKAAKARARKKAKAKKKAAKAKKRKKK 


ieee 252738) RADHS 
1238 FORMAT(70X,'*** RADIOSITY FROM ALL HEAT SOURCE; RADHS=' ,E10.4) 
1237 CONTINUE 


RARKAKKAARARKARKARKKKKAKAKKKARR 
HEAT INPUT FOR FIRE 
CPE Ink HEAT SOURCE 


DO 826 N=1,NHSZ 

OF1(N)=QDOT(N)*H/ (RA*TA*UO*CPAIR) 
826 CONTINUE 
310 CONTINUE 


KRAKKAARKKARRKAKKRRARRRKRKKRKRAKKARKARKRAKKK 


AAA 


*x*X CALCULATE THE WALTAGE INPUTS AND THE TEMPERATURES OF HEAT ELEMENTS 
AX START CALCULATION 


ITERT=1 
KTGP=1 
375 CONTINUE 
ITER=0 
JTERM=0 
JIJTERM=0 


-s* DEFINE THE UPDATED TPD(I,J,K),R(1I,J,K),U,V,W AND P 
DO 48 K=1,NK 


DO 48 J=1,NJ 
DO 48 I=1,NI 


OLA Aa Oya a} 


AAN 


Peed KR )=1(1,J,K 
Reo bd K)=K(L,J,K 
Boel y= 1 ,J,K 
Peo J  Ri=V(1L,J,K 
Web(l,J,K)=W(1,J,K 
feo Loh )/=P(1,J,K 


48 CONTINUE 

269 CONTINUE 

Zo CONTINUE 
JTERM=JTERM+1 


ARAK KRKAKRKKKKARKAKKRKRAARARKRKKKRKAKRKRKAKKKKAKKKKAKKKKKAKARARKRRRKERKKAKKKR 


oO 


CALL CALT(QDOT,QF1) 


KAR RAKKKRKRRKKRKRKAKKKRKAAKKRKRKKKAKRKKAKRKRKKKKKKKKKRRKRKRKKKKKARKKKAKER 


Te(NGReet,Grero0) GO TO 372 
DO 373 I=1,NI 
DO 373 J=1,NJ 
DO 373 K=1.NK 
[mano J Kk). LT.i.) T(1,J,K)=1. 
373 CONTINUE 
372 CONTINUE 


AAAA=~1 . *BUOY*UGRT*Z(1) 
DO 2010 J=1,NJ 
DO 2010e0=1,NI 


OO aa 


AMGie 


C R( 1, J,.1) SBeP (AARBa)/T(I,J,1) 
C2010 CONTINUE 
C 


C xxx GLOBLE PRESSURE CORRECTION FOR ENCLOSED TANK AIR 
C 


SUMT=0. 
SUMPT=0. 
SULIRE@=0 . 
DO 370 I=2,NIM1 
DO 370 J=2,NJi11 
DO 370 K=2,NKM1 
SUMT=SUNT+1. PTC ke) 
SUMPT=SUMPT+P (1, im Kae 
SUPPET= SUMPET+REQ(K x ( 
370 CONTINUE 

SUMPET=SUMPET/UGRT 
PCORR=(SUMPET-SUMPT ) /SUMT 
PCORRP=PCORR 
PCORRN=PCORR 
Raber ex. pe PCORR 

289 FORMAT(5X,'PCORR =* ,1PE11 7 ) 


DO 371 I=2,NIM1 

DO 371 J=2,NJM1 

DO 371 K=2,NKM1 

P(I,J;7K)=P(1,J,K)+PCORRN 
371 CONTINUE 

PCORRT=PCORRP+PCORR 


c 
C *** END OF GLOBLE PRESSURE CORRECTION 


(I,J,K) 
1./TINIT-1./T(I,J,K)) 


C 
e 


PORred.. 


DO 2000 K=2,NKM1 
AAAA=BUOY*UGRT*Z(K) 
DO 2000 I=1,NIM1 
DO 2000 J=1,NJM1 
TE(@(1,J3,K)-n0. 1...) ore 
R(i, gd, K)=(UGRTAPOL, & A 
TOTM=TOTM+R(I,J,K) 
2000 CONTINUE 

TOTM=TOTM*VOL*H*H*H*RA 
ERR1=(TOTMS-TOTM) /TOTMS*100. 

kxk* ERROR IN TOTAL MASS DURING THIS TIME STEP 


301 LTER= iT Beet 1 
CRRA RAAAAAKAAARAKKARAKKK AKA RKARKA KAA KAKAARKAAAKA KA AAAAAKAARKAKKKKKK 


I Jagr. 
+l aes P(AAAA)))/T(I,J,K) 


AOA 


CALL CALUV 

CALL CALW 

CALL CALP 
c KAR KR KR RK RRR KKK RRR RK KR RRR KR RK RRR RRR KRAK RRR KKK KARR K KKK AKAKKAANAKS 
c IF(RESORM.LE.0.05) GO TO 304 
C WRITE(6,3) ITER,RESORM,RSMP 
C IF(RESORM.LE.0.5) GO TO 304 

3 FORMAT (SOX, 'ITER=!,12,2X,'RESORM=',F8.5,1X, 'SORSUN=',F8.5, 
& 2X, ERRM =' £11.4, '%') 

C IF(ITER.GT.4)G0 TO 304 
c IF(ITER.GE.2)GO TO 306 
C IF(ITER.EQ.3) GO TO 307 
C IF( ITER GE.2) GO TO 306 
C 
a RES1=RESORM 
E Gomme 301 
C 306 IF(RESORM.GT.RES1)GO TO 307 
C GO TO 301 


166 





C 304 CONTINUE 


302 


| 


38 
eo 


Z3 


55 


5S 


304 


4} 


82 


43 


Re ag tse be. SORUAR) GO TO 49 
feo. 20.1) GO TO 302 

ITERM1=ITER-1 
IF(RESORM(ITER).LE.RESORM(ITERM1)) GO TO 302 
GO TO 304 

Det Gee MAGE .2)sGOeTO 37 

SOURCE=RESORM( ITER) 

GO TO 39 

IF (RESORM(ITER) .LE.SOURCE) GO TO 38 

GO TO 304 

SOURCE=RESORM( ITER) 

CONTINUE 

DO 23 K=1,NK 

DO 23 J=1,NJ 

DO 23 I=1,NI 


eoenee, J RJ=itloJd,K 
BeD( 1, J,K)=R(I,J,K 
eee it, J ,K)=-U(1I,J5,K 
WED(l,J,K)=V(1,J,K 
WPD(I,J,K)=W(I,J,K 
meow, ,K/=P(1,J,K 
CONTINUE 

JIJTERM=0 


mace kb Osz eco TO 35 

IF(ITER.EQ.4) GO TO 29 

CONTINUE 

gta BO58) GO TO 58 

IF(ITER.EQ.7) GO TO 29 

CONTINUE 

JITERM=0 

WRITE(6,3) ITER,RESORM(ITER) ,SORSUM,ERRI1 
GO TO 301 

CONTINUE 

JITERM=JITERM+1 

ee ee}? GO TO 41 | 

Preolenienos2 AND. JJTERM.EQ.1.AND.ITER.NE.5) GO TO 41 
GO. TO SZ 

CONTINUE 
IF(ITER.EQ.ITMAX) GO TO ‘49 

GO TO 49 

CONTINUE 

DO 43 K=1,NK 


LF {JTERI.EO.2) Gt GO" 10.29 


~ “ss ws “ws Ss “% 


Pee Goaaqgca 


ma 


=WPD 


ees 
geo. £O. 
GOetO 301 
CONTINUE 


IF(ITER.NE.ITMAX) GO TO 2435 
WRU GE CG 222 ) 

FORMAT (//,1X, 'ITER=ITMAX' ,/) 
CONTINUE 


THE FOLLOWING PRESSURE TEST IS A TEMPORARY MEASURE TO MODIFY THE 
HEAT INPUT TO FORCE THE CALCULATED PRESSURE TO AGREE WITH THE 
Seen PRESSURE. f7 WiLEeseesreeUNerE AGCGURATE HEAT INPUT 
PoE Ca IV ED. 


PSOUTH=P(20,9,16)*CONST1+REQ(16) 


A 


GO To 49 
D.ITER.NE.8) .OR. JUJTERM.EQ.2) GO To 49 


iN 
<j 
rg 
7 
WTS HHHWHHIH 
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ee 
ce 


AMMA 


OM 


MA”MAANM!A 


PERROR=(PCURVE-PSOUTH) /PCURVE 

QCORR=1.0+PERROR- (PSOUTH-PM1 ) /PCURVE 
QCORR=1.0+PERROR- (PSOUTH-PM1 ) /PCURVE+ (PSOUTH-PM1 ) / (PCURVE-PCURM1 )* 
& (PCURVE-PH1) /PCURVE 

QCORRT=OCORRT*OCORR 

PCURM1=PCURVE 

PM1=PSOUTH 


PRINT * 

PRINT *, ' PCURVE PSOUTH PERROR OCOR 
&R QCORRT Q! 

PRINT *, PCURVE, PSOUTH, PERROR, QCORR,QCORRT,Q 

PRINT * 


xxx SORSUM IS THE SUM OF ERROR SOURCE FROM ALL OF THE CELLS 


INSITE” eNCECSURE.. 
WRITE(6,45) XTIME , NTREAL, TIME, ITER, RESORM(ITER) ,SORSUM,QF1(1), 
& Bak 


WRITE(6,45)XTIME ,NTREAL, TIME, ITER, RESORM, RSMP, OF1,ERR1 

45 FORMAT(1X, 'TIME=',F9.3,' SECS',1X, ‘NTREAL=',15,1X, 'TIME=', 
& F7.3, 1X, 'ITER=' ,12,1X, 'RESORM=' ,F8.5,1X,'RSMP=' , F6.4, 2x, 
& 1X,'OF1=' ,F6.3,1X, ‘ERRM=' _E11.4, '%' 


see tg fe mg Re i ee eee 


+ ® s o . ¢ . . . s . . . . 
HK K KIKI RRR KEK RRR RIE RRR ARERR AAR RRA RRA RAR RRR RRR eee 


ARX TO PRINT OUT THE FOLLOWING INFORMATION IS OPTIONAL 


IF(NTREAL.NE.NTRWR)GO TO 661 


AK CALCULATE THE MAXIMUM PECLET NUMBER 


PEMAX=0. 
DO 6625 I=2,NIM1 
DO 6625 J=2,NJIM1 
DO 6625 K=2,NKM1 
PENU=SORT(U(I,J,K)*U(I,J,K)+V(I,J3,K)4V(1I,J,K)+ 
2 W(L,J,K)*W(L,J,K) )*UO*DX*H*R(I, J, K)*RA*H*U0/(30.43*VISL) 
IF(PENU.GE.PEMAX)GO TO 6623 
GO TO 6625 


6623 PHIAX=PENU 


IPMAX=I 
JPMAX=J 
KPMAXK=K 


6625 CONTINUE 


6624 FORMAT 


& 
6626 FORMAT 


ee oe? +) EPUn a ee 
) Oe (ATT = eee =e ee 
& ' MAXIMUM PECLET NUMBER =! ,F10.3/) 7 
WRITE(6,*) 'THE VELOCITIES AT THE LOCATION OF THE MAXIMUM PECLET N 
S&UMBER ARE: ' 
WRITE(6,6626) U(IPMAX,JPMAX,KPMAX) , V(IPMAX, JPMAX,KPMAX), 
W(IPMAX , JPMAX, KPMAX) 
5X,'U='_F8.4,5X, 'V=' F8.4,5X, 'W=" Be eee 


6666 CONTINUE 
G 
C *** PRINT OUT THE VELOCITY AND TEMPERATURE FIELD IN THE TANK 


IF(NTREAL .NE. NTREAL/NWRITE*NWRITE) GO TO 16 
WRITE(6,'(//1X,A76)') 'TEMPERATURES AT THE LEFT TC COLUMN, THE FIR 
&& COLUMN, AND THE RIGHT TC COLUMN! 
WRITE(6,'(/9X,A10,8X,A10,8%,A10/)') "I= 3, J="9' ‘Tali geen 
& Tre geno 
DO 501 K=2,NKM1 
TCELSI(3,9,K)=TA/1.8*T(3,9,K)-273.15 
TCELSI bb 2-K)Sie/1 620 ( 2) 2 
TCELSI(20,9,K)=TA/1.8*T(20,9,K)-273.15 
WRITE(S. (15,82) 12 'K='! K TCELSI(3,9,K), 
& TCELSI(11,9,K) ,TCELSI(20,9,K) 
501 CONTINUE 


re 35°5)$) 
XPS=P 20,9, 16) *CONSTI+REQ( 16) 
WRITE (6,'(//1X,A15,F7.4,5X,A15,F7.4/)') 'NORTH PRESSURE=',XPN, 
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AAD ANN AANAN AAD AAD AAINANNANINAN 


AANM 


AAT 


& .20U THSE Re SURE=') APS 
16 CONTINUE 
661 CONTINUE 


RREARRKEKARRKERKREKRKRRKERRRKRKARERRERKEKERRAKKRRKAKRREKRKEERERRRKREKREKREKRKKKKRKKEKE 


*x*kX CALCULATE THE ENERGY LOST THROUGH(OR CONSUMED BY) 
Pe oneeeeNK- WALLS. Ze LANK AIR. 


KRARRAARKREKARKKKAARKRKARKARKEREKKKKKAAKRKKAKKRKAKKKKKERARAKARRR | 


IF(KBOUND.NE.2.AND.KBOUND.NE.3)GO TO 22 
WWAL=QCONW +ORADW 
22 CONTINUE 


xX TANK AIR 


WAIR=0. 
DO 25 I=2,NIM1 
DO 25 J=2,NJM1 
DO 25 K=2,NKM1 
Bra TOMS 
WAIR=WAIR+(T(I,J,K)-TOD(I,J,K))*R(I,J,K)*VOLDT 
25 CONTINUE 


xkX SUM UP THE TOTAL WALT AT THAT TIME STEP 
WINS=0. 
DO 827 N=1,NHSZ 


WINS=WINS+QDOT(N) 
827 CONTINUE 


KAARKRAKARAAKARRARARARAR RAKE RR KEK ERA RKRKKR ARERR KKK RRR RRR RK RAK EK 
xR THE ENERGY CALCULATION 


QOSIN=QSIN+WINS*DTIME 

OSWAL=OSWAL-WWAL*DTIME 

OSAIR=OSAIR+tWAIR*DTIME 
*kk CALCULATE THE PERCENTAGE AND PRINT OUT THE RESULTS 

IF ((NTREAL.NE.NTRWA) .AND. (NTREAL.NE.NTRWR)) GO TO 1083 
zkkK WALT PERCENTAGE . 


PAIR=WAIR/WINS*100. 
PWALL=-WWAL/WINS*100. 


kkk ENERGY PERCENTAGE 
PSAIR=QSAIR/QSIN*100. 
PSWAL=OSWAL/OSIN*100. 
Ke 
IF(NTREAL .NE. NWRITE) GO TO 17 
WRITE (6,1084)XTIME,WINS , WAIR 
& ,WWAL,OCONW ,ORADW 
1084 FORMAT(6X,'*** AT TIME = ',F9.4,! *xARIO/ | 
& 9X,'THE WALTAGE INPUT; WINS = ',E£10.4,/, 
& 9X,'WALTAGE INTO AIR; WAIR =',E10.4,/, 
&9X,! INTO THE WALL; WWAL =!',E10.4,2X,'BY CONDUCTION; QCONW=',E10.4, 
& 2X,'BY RADIATION; QRADW =',E10.4,//) 


WRITE(6,2728) QRADL ,QCONL ,QRADR,QCONR,QRADRE,QCONRE, 
ORADF ,QCONF ,QRADB,QCONB,ORADT , OCONT 


& 
2728 BPORMAT(9X,'ORADL : INTO LEFT WALL BY RADIATION= ' ,E10.4, 


SecteeoeOuk, + BY CONDUCTION =',E10.4,/, 
& 9X,'ORADR : INTO RIGHT WALL BY RADIATION= ',E10.4,/, 
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1088 


LT 


Gere). 1) 
> 
A 
A 
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1083 
KKK 


AMQa QO 


G 
663 


E 
664 


665 


& 9X,'OCONR : BY CONDUCTION = ',E10.4,/, 

& 9X,'OREARE: INTO REAR WALL BY RADIATION= ',E10.4, 
& 9X,'OCONRE: BY CONDUCTION = ',E10.4,/, 

& 9X,'QRADF : INTO FRONT WALL BY RADIATION= ',E10.4, 
& 9X,'OCONF : BY CONDUCTION = ',E10.4,/, 

& 9X,'ORADB : INTO FLOOR BY RADLATIONS Ero. e 

& 9X,'OCONB : BY CONDUCTION = ',E10.4,/, 

& 9X,'ORADT : INTO TOP BY eaniietene 'E10.4, 

& 9X,'OCONT : BY CONDUCTION = ',E10.4,//) 


ag ,1091)QSIN, QSAIR, OSWAL 

FORMAT(9X,'QSIN : TOTAL ENERGY INPUT=',E10. 4,/, 

& 9X,'OSAIR : TOTAL ENERGY INTO CAVITY ‘AIR= le: 
& 9X,'OSWAL : TOTAL ENERGY INTO WALLS=!,£10.4,2x,// 


aS oa PAIR, PWALL,PSAIR, PSWAL 


FORMAT(9X,'PAIR : LOSS INTO CAVITY AIR=',F8.3,' %',/, 
& 9X,'PWALL: LOSS INTO THE WALLS =',F8.3,!' %',/, 
& 9X,'PSAIR: TOTAL INTO CAVITY AIR =',F8.3,! By 
& 9X,'PSWAL: TOTAL INTO THE WALLS=',F8.3,' %',// 
CONTINUE 
THE TOTAL ENERGY DISTRIBUTION. 

QQ=WINS 


POAIR=QSAIR/0QQ*100. 
POWAL=OSWAL/OO*100. 
eae ,1093)RTIME, POAIR, POWAL ,QO 
FORMAT(6X,'** AT TIME =',F9.3,' PERCENTAGE, OF TEST ENERGY INPUT ', 
& /,9X,'PWAIR : INTO CAVITY AIR =! ,£8.3)' cue 
& 9X,'POWAL : INTO THE WALLS=',F8.3, ' 21, 
& 9X, 100 : TOTAL ENERGY INPUT = ',E10.4,//) 


CONTINUE | 
CALCULATE THE AVERAGE TEMPERATURES OF THE WALLS AND PRINT THEM OUT 


TF ((NTREAL .NE .NTRWA) .AND. (NTREAL.NE. NTRWR)) GO TO 662 
Sim =O. 
STB =0. 
STRE=0. 
Sic, 
SOR =0. 
Srl, =o. 
DO 663 I=2,NIM1 
DO 663 J=2,NJM1 
Se iter I 
IF(NOD(I,J,NKM1).E0.2)GO TO 663 
STT =STT +T(1,J,NR) 
CONTINUE 
DO 664 I=2,NIM1 
DO 664 K=2, NKMI 
STRE=STRE+T(I,1,K) 
IF(NOD(I,NJM1 ny. EQ 2)GO TO 664 
STF =STF +T(I,NJ,R) 
CONTINUE 
DO 665 J=2,NJIM1 
DO 665 K=2,NKM1 
STR =STR ae mine 
STL =STL +T(1,J,K) 
CONTINUE 
AVI =STT /CELLT *TA-460. 
AVB =STB /CELLB *TA-460. 
AVRE=STRE/CELLRE*TA-460. 
AVF =STF /CELLF *TA-460. 
AVR =STR /CELLR *TA-460. 
AVL =STL /CELLL *TA-460. 
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2 AVE, AVBAVRE, AVE, AYR AVL 
666 FORMAT(/,3X,'*** AT TIME = ',F9.4,!' ***! > / 2x,'* THE AVERAGE ', 
& 'TEMPEATURE OF *',/,6X,'TOP WALL =',F10.5,2X,'BOTTOM WALL=', 
& F10.5,/,6X, 'REAR WALL =',F10.5,2X,'FRONT WALL =',F10.5, 
foe RIGHT Wee" F10.5,2xX,'LEFT WALL =',F10.5,//) 
662 CONTINUE 


k*X RESET THE OLD VALUES 
xkKRX ALSO USED IN T4ZON(LZ) 


DO 305 K=1,NK 
DO 305 J=1,NJ 
DO 305 I=1,NI 
UOD(I,J,K)=U 
VOD(I,J,K)=V 
WOD(I,J,K)=W 
TOD(I,J,K)= 
ROD(I,J,K)=R 
P(I,J,K)=P(L, 
305 CONTINUE 


*xAX SAVE VALUES FOR PLOTTING 


Pm itiiet .br., 10.) GO TO 306 
ATIMEI=0. 
WRITE(10) 
& ieee lOD,; nob UOD,VOD,WOD,P,VIS 
306 CONTINUE 


REIMEI—-ATIMEI+DTIME*H/UO0 


Ge @wen THEFT (TT) 

ee itn Gh.TTLEFT) GO TO 303 
Se aie 20.) GO TONs03 
IF(XTIME.LT.TMAX)GO TO 300 


Bue CONTINUE 


WRITE(9) 
& TIME ,NTREAL,TOD,ROD,UOD,VOD,WOD,P,VIS,XTIMEI 
&,QSIN,QSWAL, OSAIR, PCURM1 , PM1 , OCORRT 
& TWF ,TWRE,TWR ,TWL ,TWB ,TWI ,RLW,RRW,RREW,RFW,RBW,RTW 
&, RADHS , QRADF ,ORADW ,QRADB, QRADL, ORADR,QRADT, QRADRE 
WRITE(11) 
& TIME,NTREAL,TOD,ROD,UOD,VOD,WOD,P,VIS,XTIMEI 
&,OSIN,QSWAL,QSAIR, PCURM1 ,PM1,QCORRT 
& TWF ,TWRE,TWR ,TWL ,TWB ,TWT ,RLW,RRW,RREW,RFW,RBW,RTW 
&,RADHS,QRADF ,QRADW ,QRADB,QRADL,QRADR,QRADT, QRADRE 
~ 2303 CONTINUE 


STOP 
END 
OF 1 ) 


C KARKKKKKARARKKRKAKKRKK RR RAKE RERAKRRKRAA AA KRRRA KR KAAKKAKKARAAK RRR AKRREREKRE 
cS 


AMM 


COMMON /BL1/BUOY,VISL,VOL,VOLDT,KBOUND,DTIME,NTREAL,SORSUM ,NWRITE 
Celie, 2b2/ Ux, DY ,DZ,DAY ,DYZ,U2n, KYOZ, YZOK , 2XOY , KYPZ,YZPX,ZxXPY ° 
COMMON /BL3/ NI,NJ,NK,NIM1,NJM1,NKM1,NIM2,NJM2,NKM2 
COMMON/CONS/XTIME,NT,UO,PRT,TA, 


& NIMAXO, RA, CPAIR, SIGMA 

COMMON /NE/ U(22, 18,18) .v(22, 18,18) 72218 18) ,R(22, 18, 18), 
& P(22,18,18),W(22,18,18) ,WwOD(22,18,18) 

E Ss ee ti? 9b(2218,18) NoD(22,.18,18) 
COMMON/OD/UOD(22,18,18),VOD(22,18,18),TOD(22,18,18),ROD(22,18,18) 
COMMON/BL31/TPD(22,18,18),RPD(22,18,18), UPD(22,18,18), 

& VPD(22,18,18) ,WPD(22,18,18),PPD(22,18,18), RESORM(20) , ITER 
COMMON/CO/AP(22,18,18),AE(22,18,18) ,AW(22,18,18),AN(22,18,18), 
sere ee) SU (22,18, 18) (SP(22,18,18) AF(22,18,18),AB(22,18,18) 


MO 


MOOA”AM”AN 


COMMON/ PP/BU(22,18,18) ,DV(22 ; Hepa e ie ee ie wig??? 24 Bee 
COMMON/BL10/ Zea /REQ(30), VIS(22, Ley 13) RRES (3 
COMMON/BLi2/ DYZO2,DZKO2, DKYO2, XYPZ2, YZPX2, ZKXPY2,DX4,DY4,D24 








/DXW,DYW,DZW, VOLW, ALFAW, BETAW,HCOEF,TINF, 

"CCOWL , CCOWR , CCOWRE , CCOWF , CCOWB , CCOWT 

COMHON/RAD/RLW(A7, mee /RRW(17,17),RREW(21,17),REW(21,17),RBW(21,17) 
1,17), RADHS 


COMMON /VIEW1/ MI,MJ,MK,MIL,MJJ,MKK,MIM,MIP,MJM,MIP ,MKM,MKP, 
MIIM,MIIP,MJJM,MJJP ,MKKM,MKKP ,NHSZ,LZ,NZ,MZ, 
IREGN1 , IREGN2, ILREGN3, IREGN4, IREGNS , IREGN6G ,, IREGN7, 
MREGN1 , MREGN2 , MREGN3 , MREGN4 , MREGNS , MREGN6 , MREGN7 
COMMON /VIEW2/ MIIZ(9), NI Ja(9) 4 'MKKZ(9),LI(9),L3(9), LK(9), 
ITHIN(9) , JTHIN(9) , KTHIN(9) , AXY(9), Ages): Azk ae 
IHSB(9),JHSB(9),KHSB(9) ,NHSW(9),NHSD(9),NHSH(9 
LTYPE (9,6) 


DIMENSION QDOT(1),QF1(1) 


DO 100 l=2,NIMI1 
IPI=I+1 
IMi=I-1 
DO 100 J=2,NJMI1 
JPI=J+1 
JM1L=J-1 
DO 100 K=2,NKM1 
KP1i=K+1 
KM1i=K-1 


IF(NOD(I,J,K).GE.11)GO TO 100 


& /XYOZ2, YZOX2 , ZXOY2 , DYZ04 , DZX04 , DXY04 
COMMON /BL4/ QCONW , 
& QRADF ,QRADW ,ARFP,ARFS,QRADB,QCONB,QRADL,QCONL,QRADR,QCONR, 
& ORADT , OCONT , QRADRE , OCONRE 
COMMON/WCAP/TWF (21,2,17),TWRE(21,2,17),TWR (2,17,17), 
& TWL (2,17,17),TWB (21,172) , Sede 
& CPF (21,3,17),CPRE(21,3,17) ,@eRr (aed? 17 
& CPL (3,17,17), GPBid 21, ty Sperone lice 
& 
& 
& 


mn 


LDL WML 


CE=(R(1,J,K)+R(IPL,J,K))*U( 021, J ee 
CW=(R(I,J,K)+R(IM1,J,K))*U(I ,J,K)*DYZO2 
CN=(R(1,J,K)+R(1,dPi,K) )*V(1 ,JPl, RK) *Dazo2 

' CS=(R(1,J,K)+R(1,JML,K) et I eae 
CF=(RUL,J JK) ER( 1 dei “wt de KP1)*DXYO2 
CB=(RC1L,J /K)ER( 1 Jel een de K ADKYO2 
VISGE=VIS( Gel , dak 


VISCW=VIS(IM1,J,K 
VIisSee=VIStit , 
VISCN=VIS(I,JP1,K 
VIS@GE=Vis( 1, Ja 


VISCF=VIS(I,J,KP1 

AE(I,J,K)=0.5*( ABS(CE)-CE)+YZPK*VISCE 
AW(I,J,K)=0.5%( ABS(CW)+CW)+¥ZPK*VISCW 
AN(I,J,K)=0.5%( ABS(CN)-CN)+ZXPY*VISCN 
AS(1,J,K)=0.5*( ABS(CS)+CS)+ZXPY*VISCS 
AF(I,J,K)=0.5*( ABS(CF)-CF)+KYPZ*VISCF 
AB(I,J,K)=0.5%*( ABS(CB)+CB)+KYPZ*VISCB 


SuaeL J; ae nop Jif One 
Uae a K)= ROD(I,J,K)*VOEDT*~ 10D (laa 
100 CONTINUE 


xX CONSIDER THE SOLID BOUNDARIES AND FREE BOUNDARIES. 
FOUR DIFFERENT "GhSEs AREvAVALERE ae 


xx*X TOP AND BOTTOM 
DO i11i I=2,NIMi1 


AIAN 


AAN 


OOO 


eG 
Peel 


304 
SOL 


AK 


AZ 


302 
117 


AAK 


305 


DO 111 J=2,NJM1 
AF(I,J,NKM1)=0. 
Oty Ze Goelo. 116 


CF=(R(I,J,NKM1)+R(I,J,NK))4W(1,J,NK)*DXYO2 

Moves Gr.0.) GO TO 116 

VISF=VISL | | | 

ee, 25S (CE) -CF)+HvPz VISE) *TOD(1,J,NK) 
SP(I,J,NKM1)=SP(I,J,NKM1)- 0.5*(ABS(CF)-CF)-KYPZ*VISF 

Ewin 2)=0. 

CONTINUE 


IF (KBOUND.NE.2.AND.KBOUND.NE.3) GO TO 301 
DO 304 I=2,NIM1 
DO 304 J=2,NJM1 


Bied2 eo 1 a ei {re ad ) 
Seti, J,2 =SP(I,J,2 -XYPZ2*VIS(I,J,2 
IF(NOD(I,J,NKM1).EQ. 2) GO TO 304 
re ee 25(1 5 NEM) ATOD(T. JNK ) 
SP(I,J,NKM1)=SP(I,J,NKM1)-XYPZ2*VIS(1I,J,NKM1 
CONTINUE 
CONTINUE 
RIGHT WALL AND LEFT WALL 
DO 212 J=2,NJM1 
DO 212 K=2,NKM1 
es ke: 
Byl( 20 .K)=0. 
CONTINUE 
IF (KBOUND.NE.3.AND.KBOUND.NE.2)GO TO 117 
DO 302 J=2,NJIM1 
DO 302 K=2,NKM1 
SU(NIM1,J,K)=SU(NIM1,J,K)+YZPX24VIS ey i) TOD (NT, T8 ) 
SP(NIM1,J,K)=SP(NIM1,J,K)-YZPK2*VIS(NIM1,J,K 
Su(2,J,K =m, JK +YZPK24V1IS(2,J,K eae ) 
SP(2,J,K ori? J.K -YZPK2*VIS(2,J,K 
CONTINUE , | 
CONTINUE 


FRONT DOOR WALL AND REAR WALL 


DOmLOs K=2, NKM1 
DO 103 I=2,NIM1 
AN(I,NJM1,K)=0. 
on ee reve 2) GO TO 119 


CN=(R(I,NJM1,K )+R(I,NJ,K))*V(I,NJI,K)*DXYO2 

ZH(CGN.GE.O.) GO TO 119 

VISN=VISL | 

I AS ARI ad eB aurea ct Wl ep a a Sa et AOS 
PS ae Y=SP(I,NJM1,K)- 0.5*(ABS(CN)-CN)-ZXPY*VISN 

S(I,2,K)=0. 


CONTINUE 
IF(KBOUND.NE.3.AND.KBOUND.NE.2)GO TO 118 
DO 305 K=2,NKM1 
Beomeu> I=2,NIM1 


SU(I,2,K mee 2 a eek ete Ke 
SP(I,2,K )=SP(1,2,K )-ZXPY2"VIS(1I,2,K 

IF(NOD(I,NIJM1,K ).EO. 2) GO TO 305 
Sopa eatt he) =SU( 1 NIMLK)42KEY CATS (1 NIML,R)*TOD(T,NI,K ) 
SP(I,NJM1,K)=SP(I,NIM1,K)-ZXPY2*VIS(I,NJMI1,K 


CONTINUE 


118 CONTINUE 


ARK 


VOEUMSGRICAL HEAT SOURCE INPUT 


DO 102 N=1,NHSZ 
IB=IHSB(N) 
ITE=IB+NHSW(N)-1 
JB=JHSB (N) 
JE=JB+NHSD(N)-1 


ls 


KB=KHSB(N) 

KE=KB+NHSH(N)-1 

DO 101 I=IB,IE 

DO 101 J=JB,JE 

DO 101 K=KB,KE 

SU(L,J,K)=SU(I,J,K)+OF1(N) *VOL 
101 CONTINUE 
102 CONTINUE 


Ee 
C ***“REwIbs? BEGak 
G 
e 
C *** THE CELLS INSIDE THE TEST BLOCK AND HEAT SELEMENTS Weal ser 
c BE CALCULATED. THE VALUES OF AP AND SU ARE GIVEN IN MAIN PROGRAM. 
c 
C ***k ASSEMBLE THE COEFFICIENTS AND SOLVE THE EQUATIONS 
G 
DO 3007 I=Z7Niit 
DO 300 J=2,NJM1 
DO 300 K=2,NKM1 
C TAPE ake GE. 1) GoaTe oc8 
Eel /K) =AE(I, J,K)+AW(I,J, ao ,J,K) FAS VK) +AF (I, J 7 Kou 
& ABCE a K -SP(I,J, 
300 CONTINUE 
& 


LF (NTREAL.NE.O.AND.NTREAL.NE.O )GO TO 3321 
DO 3322 IT=2,NIM1 
Bee G Stee)! 
3323 FORMAT(/,2X,'I =',12,2X,'TEMP') 
DO 3322 J=2,NUM1 
WRITE (6 , 3324) 
3324 FORMAT(/.2X,'J =',12,5X,'AE',9X,'AS',9X, 'AW',9X, 'AN!, 
& OX, AF! 9X,'AB' 9X, ‘AP! 9x, SU!) 
DO 3322 K=2,NK 
WRITE (6, 3325)K,AE(I,J, KO, -AS(I,J, Q, AW(L,J, Kai 
a AF(L.J,K mit J AP(I,J,K 
3325 FORMAT(2X,'K=',12, ix ,8(E11.5 ye 
3322 CONTINUE 
3321 CONTINUE 


CALL TRID(2,2,2,NIM1,NJM1,NKM1 ,T) 


KAAKKAKKARAKKKAKKKRAKKKKAKKAKAKKAKAA RA AAA KAARKAKRKA RK RK KKK KRK KA AKA KARKK AK 


x CALCULATE THE TEMPERATURES AT SOLID BOUNDARIES. x 
KAKKKRRKR RK RR RERAK ARR RRA KARIERRE RAK RARER RRA RARER RERREREKRARRKERKRKKERKKEE 


GO TO (70,71,71,72) ,KBOUND 
aa FOR THE CASE OF WALL CAPACITANCE CONSIDERED WITH RADIATION 


71 CONTINUE 
QCONF =0. 
OCONRE=0. 
OCONL =0. 
GOCONR =0. 
OCONT =0. 
OCONB =0. 
OCONW =0. 


DO 271 TI=2,NIM1 
DO 271 K=2,NKM1 


AAMT MOanma 


WHF =VIS(I,NJM1,K)*(TOD(I,NJ,K)-T(I,NUJM1,K))*ZXPY2 

T(I,NJ R)e TOD(I,NJ,K)- (WWE eo 5K) ) COME 

TWF (I1,2,K)=TWF (1,2,K)+(DZXO2*(CPF (1,2 /K)+CPF (I,1,K))/DYW* 
& eit Cae K} ~TWF ee +DZXO2* (CPF (1,2,K)+CPF (1I,3,K))/DYW* 
Sou Omi cette -TWE (I,2,K)))/CCOWF : 

TWE (1,1,K)=IWF (1,1,K)+2. A DEROD* (CPF (1,2,K)+CPF (I,1,K))/DyYW* 
& (TWE (1,2,K)-TWE (1,1,K))-DZX*(TWE (I,1,K)-TINF) *HCOEF ay, / CCOWF 


OCONF =QCONF vie 


174 


1,K))/DXwW* 
(£53, ))/ DEW 


DC, 1 ae 
K) ) /CCOWRE 
CPRE(I, 
)+CPRE 


Kye 10 
i 
mek A 


ee 
DXW-WWRE-RREW 


(GPRE( 1.2 ok 


= 


(CPRe ct 
E 


(TWRE(CI 
+DZXO2* 


BVA OVA 


K))/ 
+Zee 


I,1 ,K)-T(1,2,K))*ZXPY2 
DZKO2* 


a 
hoo-. 
K) +( 
Zo 
) 
1 


K)) /DEW* 
COWRE 


Bh Glee Ks). ) 
TINF)*HCOEF)/C 


Sea 
K a 


2x 
DZX*(TWRE(I,1, 


) /CCOWR 
(DZXO 


K)) 


eet ~ 


OCONRE+WWRE 


OCONRE 
CONTINUE 


271 


J,K)) /DXW* 
E 


2 ieee) 
CCOWL 
(1,J 
Vee) ) 
TINE ) *HCOEF ) /CCOWL 


sey) 
J,K)+CPL- 
K)- 


-RLW 
Orie (2 tcrL ¢ 


CGPET (2 sd-K )+CPL,. ( 


(Sook 


-WWL 


(CPL (2 
+DYZ02* ( 


) 
( 


mero) ) ae nZ 
CPL 


( 
ke) ) 
DYZOZ— 


/CCOWL 
DYZO2% 
DYZ*(TWL (1,J, 


* 


x 
es 


J_,K) 
YZ02 


< “-K 
= 35 a 
SO ee 
KAQ AO 
Se) 
~~ a tae) 
aA 
os “Ly 
ey) ee 
cs ~ “OE 
“ AO 
OG ae ya rs 
ee) 7 “K 
oo 
“Coa, Tu by 
O VUE 
Ay ae 
- oo “a 
Ba 
ste S “ss 
iS 
~- NG ~ ae 
“NO Nr 
“4 Mm'O~w-  ~_ OB 
PO ~ | 
Mn 
Om 
rx Oa-K AQ’K A 
N = NWS 
~~ © © O-k 
KNONN 
NU et 
-OD-0 @ 
+e 


si 


& 


=OCONL +WWL 


QCONR =QCONR +WWR 
ONTINUE 


OCONL 


wis 


/ CCOWT 
DAYO2* 


2,NJM1 


2 


WWT =VIS 


DO 274 I 
a 


DO 274 J 


; /DZW* 


Bel, )) 
TINF )*HCOEF ) /CCOWT 


geet (liga )+CPT 


Dy vt Ld) 


) 
i 


3))/DaZw* 


I,J,1))/DZwx 
noe 


/DZW% 
OWB 


DXYO2* ( 
) -DXY% (TW 


( 


QCONB =O 
274 CONTINUE 


QCONT+QCONL+QCONRE+OCONF 


QCONB+QCONR+ 


OCONW 
GO TO 73 


eC 


C *x** FOR THE CASE OF INSULATED WALLS 


7Q CONTINUE 


2) GO TO 74 


EQ. 
) 


) 


Pee lier 


eo, 2) 


NJM1 

NKM1 

eT 
2,NJM1 
2,NKM1 


2,NIM1 
r 


2 


DO 74 I 
DO 74 J 


74 CONTINUE 


Lis 


— 
— 
—2 
= 


DOged J 
Doweo Kk 


Om) 


MY AMD AMnNNMNNYA 


MO 


ANANIANNANANANANNNHAMNANGA 


AM 


Th R= a ky 
aL NI, J Beer eh, JS) 


80 CONTINUE 


DO 76 K=2,NKM1 

DO 76 I=2,NIM1 
T(I,1,K)=T(1,2,K) 

rE(NGD(T, /NJM1L,K).EQ. 2) GO TO 76 
T(I,NJ,K)=T(I,NJML,K) 


76 CONTINUE 


Goto 7/5 


kk FOR THE CASE OF THE RADIATION WITH THE INSULATED WALLS, 


NOT AVAILABEL YET. 


72 CONTINUE 
xX FOR THE FREE BOUNDARY 
73° GCONDINVE 


RETURN 
END 
SUBROUTINE SURRAD 


RRAKKKAAARKARKAKRARRKARKRAKKRKAKRKKRRRRARRRRRRRKRKRRRAKRKKARKRARARRRRRRRARRARRRRR 


KAR 


AAA BRR 


ARK 
ARK 
ARR 
KAR 


KKK 
AKK 


AAK 


& PZ 
COMMON/RAD/RLW(17, iy /RRW(17, di 


COMMON /BL1/BUOY,VISL,VOL,VOLDT,KBOUND , DTIME ,NTREAL,SORSUM,NWRITE 
COMMON /BL2/ DX,DY,DZ,DXY,DYZ,DZX, XYOZ, YZOX, ZXOY , XYPZ, YZPX , ZXPY 
COMMON /BL3/ NI.NJ,NK,NIM1,NJM1,NKM1 ,NIM2,NIM2,NKM2 
COMMON /BL4/ OCONW , 
& ORADF ,ORADW ,ARFP,ARFS,QRADB,QCONB,QRADL,QCONL,QRADR,QCONR, 
& ORADT ,QCONT, a /OCONRE 
COMMON/NE/ -U(22,18 we V(22,18,18),T(22,18,18) Rve2, eS em 
& P(22,18,18),W(22,18,18) ,WOD(22,18,18 
18,18) ,W(22,18, 18), 'WOD(22,18,18) ,NOD(22,18,18) 
RREW(21,17),RFW(21,17),RBW(21,17) 
21,17) ,RADHS 


/RTW 
COMMON/ VF /VEMKC(87, 67) ,T4Z0N(67) ,TZON(67),RZON(67),AR(67) 
AREA(67),VIEW(67,67) ,CONSRA 
COMMON /VIEWL/ MI,MJ,MK,MII,MJJ,MKK,MIM,MIP,MIJM,MJP,MKM,MKP, 
MIIM,MIIP,MJJM,MJJP,MKKM,MKKP ,NHSZ,LZ,NZ,MZ, 
IREGN1, IREGN2, LREGN3, ILREGN4 , LIREGNS , IREGN6 , IREGN7, 
MREGN1 , MREGN2 ,MREGN3 , MREGN4 , MREGNS5 MREGNS MREGN7 
COMMON /VIEW2/ MIIZ(9), ede MEKKZ(9) LI(Ghg (9), L 
ITHIN(9), JTHIN(S) , KTHIN(9) ,AXY(9), Avzcsy: (han (3). 
IHSB(9), JHSB(9), KHSB(9),NHSW(9),NHSD(9),NHSH(9 
LTYPE (9,6) 


; # OF CELL IN@BACH OF THE SURPRGEMcaiie 

; PHYSICAL AREA OF EACH SURFACE ZONE * H*H 

; AVERAGE TEMPERATURE OF THE SURFA@REZehic 
T4ZON(); AVERAGE TEMPERATURE**4 OF THE SURFACE ZONE 
RZON() ; SIGMA OF VIEW FACTOR MATRIX COEFF. * T**4 


RREW, RFW, 

RBW , RTW ; RZON() FOR EACH CELL WITHIN ITS SURFACE ZONE 
RADHS ; RADIOSITY OF EACH HEAT SOURCE 

QORADW ; TOTAL RADIATIVE HEAT FROM ALL INTERIOR WALLS 


SURFACE RADIATION CONSTANTS, WHICH WILL BE INCLUDED INTO VIEW 
FACTOR CALCULATION IN ORDER 1710 SAVE CPUSTiMs 


WWW WON LW MK 


DO 401 I=1,NZ 
RZO ee) =O. 


401 CONTINUE 


RADHS=0. 


KRARAKRKRARKRKKARAKKRKAKRKKKKRKE 


176 


C *** LEFT AND RIGHT WALLS 
C KRARKAKKKKAKKAKKRARKKAKRAARKK 
C 

N1=MREGN1+1 

N2=MREGN2+1 

JIJ=1 

DO 131 JJ=1,MJ 

ee 

Mego (IS) 

KKK=1 

DO 121 KK=1,MK 

SUM1=0. 

SUM2=0. 

K1=KKK+1 

K2=KKK+LK (KK) 

hemilscnd=31,J2 

DO 132 K=K1,K2 

SUM1= 7) ia ~ 

SUM2=SUM2+T(NI,J,K)*T(NI,J,K 


ieee CONTINUE 

Ro ccune prea tne 
T4ZON(N2)=SUM2/AREA(NZ2 
KKK=K2 
N1=N1i+l 
N2=N2+1 

121 CONTINUE 
JIJ=J2 

mou CONPENUE 


KRAKAKKARAKKAKAKKAAAKAKARARK 
*xx*X REAR AND FRONT WALLS 


Roe es. eee 


MAAAMMO 


N3=MREGN3+1 
N4=MREGN4+1 
ier=1 

DO 133 II=1,MI 
fleTTI+1 
f2=T11+L1 (IT) 
KKK=1 


DO 123 KK=1,MK 
Sumi=0. 
SUM2=0. 
K1=KKK+1 
K2=KKK+LK (KK) 
DO 134 I=1I1,1I2 
DO 134 K=K1,K2 
SUM1= ett. 
I,NJ,K)*T(I,NJ,K 


Be een he} 
=SUM2/AREA(N4 


SUMZ=SUM2+T 
CONTINUE 
Mena’ 
T4ZON(N4 
KKK=K2 
N3=N3+1 
- N4=N4+1 
123 CONTINUE 
Iit=I2 
133 CONTINUE 


les gee 
134 


KAKAKKKKKAKKRRKAKKRKRRAKKKAKKAKR 


*XX BOTTOM AND TOP WALLS 
KRAKAKRAKKAAKARAARKKKKRKKK 


MAAAMM A 


N5=MREGN5+1 
N6O=MREGN6+1 
III=1 

Does oii=1 MI 


Lay 


P70 ie 
aT 


i an 
AT 


de ser Li, ae 
Nivd Ky clint, JK 


Le et 
I,NJ,K 


| aK} 
I (Nae 


eS ied 
[2Z=lli tue 
JFIJ=1 
Dome >) Jd—=t Mo 
SUM1=0. 
SUM2=0. 
Jeo +t 2 
i2—J osu ( Jd) 
POM@res6 1=11,12 
PO ess: J=J1, 52 
SUM1= ee ae ae es 
SUM2Z2=SUM2+T( I,J NK AT 
136 CONTINUE 
ete ‘= ye N5 
T4ZON(N6 )=SUM2/AREA(N6 
IIT=HAI2 
N5=N5+1 
N6=N6+1 
125 CONTINUE 
ria] 7 
135 CONTINUE: 


da, 3 eM a % 
ou NK AT(1, J, NRT (1 Je 


MLO 0907 
+ 
4 
mt: 
4 
4. 
A- 
- 
+ 
Ae 
a 
Ae 
> 
+ 
Ae 
a 
4 
ae 
Ae 
A 
4. 
A 
os 
a 
Ae 
4 
4. 
oe 
- 
Y- 
Y- 
Y- 
- 
A 
»- 
A 
+ 
A- 
> 
4. 
Ae 
A- 
4. 
A- 
- 
a” 
+ 
aA 
A- 
aA- 
a 
a- 
A- 
+ 
A- 
Pe 
4 
4- 
aA- 
a 
ot 
- 
a 
A: 
a 


DO 85 I=1,MZ 
85 CONTINUE 


SRZON=0. 

DO 88 I=1,NZ 

DO 88 J=1, "NZ 

RZON(I1)= RZON(1I)+ T4Z0N(J)*VEMXC(I, Ie) 
CONTINUE 

DO 86 I=1,NZ 

SRZON= SRZON+RZON(I) 

86 CONTINUE 


QRADB=0. 

ORADRE=0. 

ORADF =0. 

ORADR =0. 

ORADL =0. 

Or Dr =o. 

BO 111 I=1,MREGN2 

QRADL= QRADL+RZON(T) 
111 CONTINU 

DO 112 I=MREGN2+1,MREGN3 

RADR=QRADR+RZON (I) 

112 CONTINUE 

DO 113 I=MREGN3+1,MREGN4 

QRADRE=ORADRE+RZON(I) 
113 CONTINUE 

DO 114 I=MREGN4+1,MREGNS 

ORADF =QRADF +RZON(1) 
114 CONTINUE 

DO 115 I=MREGNS+1 ,MREGN6 

QRADB =QRADB +RZON(I) 
115 CONTINUE 

DO 116 I=MREGN6+1,MREGN7 

QRADT =QRADT +RZON(I) 
116 CONTINUE 

QRADW =QRADB+QRADT+QRADRE+QRADL+QRADR+QRADF 


c 
C ee Ee 


Dee So, 1=1, 

RZON(1)= RZON(L) /AREA(L) 
786 CONTINUE 
KAKARKAKAAKAKKAKKRARAKKKKRKKKKKE 


O? 


Oo 
Oo 


c 
C 
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Ge WRITE(6,143) N1,N2,N3,N4,N5,N6 
CC143 FORMAT(5X,'N1 =',13,3X,'N2 =',13,3X,'N3 =',13,3X,'N4 =!',13,3X, 
CC & 'N5 =' 13,3X,'N6 =',13,//,5X,'TZON(I) ,I=1,Nz',/5 
C 


CC CALL WRITE1(TZON,1,NZ) 
a 


EC WRITE(6,144) SRZON 
CC144 FORMAT (5X, 'SRZON =',E10.2,//,5X, 'RZON(I) , I=1,NZ' Male 
i. 


ee CALL WRITE1(RZON,1,NZ) 
e 


ORHAT(S ,145) QRADL,QRADR,QRADRE , QRADF, eee RADE, QRADW 
145 FORMAT(5X,'QRADL =',£11.4,/,5X, 'ORADR = 
& 5X, 'ORADRE=',E11.4,/,5X, 'ORADE Ses). 
& 5X,'ORADB =',E11.4,/,5X, 'ORADT ='. Ell. 4 ve 
& 5X,'ORADW ='1E11.4,//) 


KRRAKKKKAKKKKRKAKRKAKKRKRKRKRARKARKEKK 


AKX LEFT AND RIGHT WALLS 
KKAKKKAKAAKRAR KAA KRAKARKKKAKKR 


; 


ANANANN 


N1=MREGN1+1 
N2=MREGN2+1 
oe 
Doms? JJ=1- Md 
Si=III+1 
feed +L (Jd) 
KKK=1 
DO 127 KK=1,MK 
K1=KKK 
K2=KKK+LK (KK) 
fe ise j=J1,J2 
ho 138 K=K1,K2 
| Bee 
RRW(J,K)=RZON(N2 
138 CONTINUE 

N1=N1+1 

N2=N2+1 

KKK=K2 
127 CONTINUE 

JIJ=I52 
137 CONTINUE 


KRAKRAKKKAKRKKRKKAKKAKKKKARKAKKRARKAKK 


*X*X REAR AND FRONT WALLS 
KAKKRAKKAKKKRAAKAKAAARR KARA 


ANANINN 


N3=MREGN3+1 
N4=MREGN4+4+1 
LIT=1 

DO o1so) LI=1,Mi1 
Peer i+ 
eee tT +Li Crt) 
KKK=1 


DO 129 KK=1,MK 
K1=KKK+1 
K2=KKK+LK( KK) 
DO 140 I=11,12 
DO 140 K=K1,K2 
See econ 
RFW (I,K)=RZON(N4 
140 CONTINUE 

KKK=K2 

N3=N3+1 

N4=N4+1 
129 CONTINUE 

Iilt=I2 
139 CONTINUE 


es 


MAAMANM 


KAAKRAKKKAKAKARARKARARKARKRKAKA 
aie BOTTOM AND TOP WALLS 


Of OS ie Oi Oe a ea Se Si eee ee ee OO Oi Oe ee ee 


N5=MREGN5+1 
N6=MREGN6+1 
Pi 

DO 141 II=1,MI 
I1l=III+1 
P2Z=11TI+L1(I1) 
JIJ=1 

DO 128 JJ=1,MJI 
J1laTITI+1 
J2@=dIIFLI (SI) 
Deerez I=11,12 
DO 142 J=J1,J2 
M5} econ NE, 
RTW(I,J)=RZON(N6 


142 CONTINUE 


JIIJ=IZ 
N5=N5+1 
N6=N6+1 


125 “CONT rE 


III=I2 


141 CONTINUE 


MO 


24 FORMAT(/,5X,'HEAT SOURCE NUMBER 


RADHS=0. 

DO 23 N=1,NHSZ 

LZ=MZ+N 

WRITE(6,24) N, RZON(LZ) 

:' 12.5%, "RZON(LZ) =' EU 
RADHS=RADHS+RZON(LZ) 


23 CONDENGE 


WRITE(6,99) RADHS,SRZON 


99 FORMAT(2X,'RADHS; TOTAL RADIOSITY =',E11.4,2X,'SRZON =',E11.4,/) 


C Axa 
C 

EG 

CE 
Ces 
CC 

C 

CE 
CES 2 
Ce 

G 

Ce 
Ces 
cE 

e 

CE 
CC154 
CC 

S 

Ce 
CELSs5 
CC 

G 

ee 
GElS6 
ae 

iS 

CC 
Ge 


PRINT OUT WALL ZONE RADIATIVE FLUX 
IF(NTREAL.NE.NWRITE) GO TO 1l 


WRITE(6,151) 
EO aie, | (Rees K) k=l 0s) oa 
CALL WRITE2(RLW,NI,1,NJ,1,NK 
WRITE(6,152) 
PORN oe, (RRR i) ea = 
CALL WRITE2(RRW,NI,1,NJ,1,NK 
WRITE(6,153) 
PORE AT oie) (BREN tok) a), T= ae 
CALL WRITE2(RREW,NI,1,NI,1,NK 
WRITE(6,154) 
ERUPT aaa | RRGE aair? NK), T= 27). od) 
CALL WRITE2(RFW,NI,1,NI,1,NJ 
WRITE (6,155) 
FORMAT (OK, | AREN CL, 0) got le a 
CALL WRITE2(RBW,NI,1,NI,1,NJ 
WRITE(6,156) 

mild 


Oe ail 
CALL WRITE2 


CONTINUE 


(ROW(2, J) 3-2 Nd) <A 
RTW,NI,1,NI,1,Nd 


180 


RETURN 
END 
SUBROUTINE WRITE1 (ARRAY,1I1,12) 


e Fe ee ARR LOU r obi bikkia hkkakkkkiokkkick 


c 
C 


2 


e 


3 


DIMENSION ARRAY(1) 


M=I1 

N=1 

CONTINUE 

Ma ahiniGl, 12/10) “Go TO 

WEE (6,1) (1, ARRAY (1), T=M,M+9) 
FORMAT (1X,10(I2,1PE9. ")) 
M=M+10 

N=N+1 

Eo TO 2 

CONTINUE 

WRITE(6,1) (1,ARRAY(I),I=M,12) 
RETURN 

END 

SUBROUTINE WRITE2(DUMMY,MN,1I1,12,J1,J2 


C sek DO PROUTINE WRITE2 (DUMMY (MN) Tre od 2D ceakbaiokinnekineiiis 


e 
c 


DIMENSION DUMMY(MN,1) 


M=1 

K=J1 

HK=J2/10 

DO 1 I=I1,12 

WRITE (6, Di 

FORMAT(5X, 'I =! 12, 2K,' =' /) 
CONTINUE 

IF(M.GT.MK) GO TO’ 

WRITE(6,3) (J, pure? (1, J) J=K,K+9) 
FORMAT (1X, 10(12,1PE9. Dy’ 
K=K+10 

M=M+1 

GO TO 4 

CONTINUE 

WRITE (6, 3) (J,DUMMY(I,J),J=K,J2) 
M= 


hoe 

CONTINUE 

RETURN 

END 

SUBROUTINE VIEWMX 


C KREKKKKKAKKAKKAARKKAKKAKAKAKAKKKKAAAKRKAAKAKAKAAKAKKAKRKAKKAKAKAARARKRAKRRRRARKRARRA 


C 


AAAM OO 


$2 


WDMQ WORK LK 


COMMON /BL1/BUOY,VISL,VOL,VOLDT,KBOUND ,DTIME ,NTREAL,SORSUM,NWRITE 
COMMON /BL2/ DX, DY, DZ) DAYG bua, DZX, 4 Oay AO ZXOY, XYPZ, SONS RA a A 
COMMON/CONS/XTIME, NT, UO, PRT, TA, 

NTMAXO , RA, CPAIR, SIGMA 


COMMON/VE/VEMXC( 67, 67) ,EM(67), TZON(67), RZON(67) , AR(67) 
REA(67),VIEW(67,67),CONS 
COMMON IVEEWL/ MI,MJ,MK,MII,MJJ, cee Tt /MIP,MIM,MUJP,MKM,MKP, 
MIIM,MIIP ,MJJM,MJJP ,MKKM ,MKKP,NHSZ,LZ,.NZ,MZ, 
IREGN1 , IREGN2, I[REGN3, IREGN4, IREGN5, IREGN6 , IREGN7, 
MREGN1 , MREGN2 , MREGN3 ,MREGN4 , MREGNS , MREGN6 ,MREGN7> 
COMMON /VIEW2/ MITZ(2) ead /MKKZ(9),L1(9) ,L3(9),LK(9 
ITHIN(9) , JTHIN(9) ,KTHIN(9) ,AXY(9) , AYZ(9). RZK( 9), 
IHSB(9),JHSB(9) ,KHSB(9) , NHSW(9) ,NHSD(9),NHSH(9 
LTYPE(9,6) 


DIMENSION VFMXL(67,67) ,VFMXR(67,67) , VFMXIN(67,67) ,WKAREA(134) 


<7 Treen eumninoN OF VIEW FACTORS 1S DONE IN SEPERATE COMPUTER CODE. 
Too a loeeee DTN THE BEGINNING OF THIS CODE FROM THE TAPE OR 
DESte weee (he SURFACE RADIATION MATRIAES ARE SET UP. 


18 


AAX EMISSIVITY FOR THE SURFACES 
Sésssssesssosssseesscceccooesses 
DO 10 N=1,NHSZ 


MMA 


B2-Vath 
EM(LZ)=0.81 
10 CONTINUE 
Cee, Ne 
EM(I)=0.84 
3 CONTINUE 
: SSSSSSSSSSSSSSSSSSSSSSSSSSSSssss 
C *** CALCULATE THE COEFICIENTS OF THE MATRIX FOR THE SYSTEM One sURmaem 
C RADIATIVE FLUX EQUATIONS 
C THE SPSUCIURE OF MetRIAYIsS 
C J=Li RARE te pie, Even TOTAL IS N&@ TERM 
C4 
Ee RW THE ARRAY IS LAID OUT AS BOEEGH. 
: nee LW(1,1)(1,2),--(1,5),(2,2)(2,2).-(2,9), (3, ern 
C BW 
& any 
C HS 
C 
DOR Za by, NZ 
DO 2 J=1,N2 
VE asa eeu Sheree 
VFMXR(I,J)=-VIEW(I,J)*SIGMA 
2 CONTINUE 
DOME NZ 
VEIL (Ted }=(1- VIEW ( Tt) a 
VFMXR(I ,I)=SIGMA*(1.-VIEW(I,I)) 
1 CONTINUE 
NN=N2 
MM=Na 
TA=NZ 
TAIN=NZ 
pet 3 
RAKARKAKKKKKKKAKKKKAKRKKRKKKRAKRKRKRARKAKRKRKRKKRRKKKKAKRKKRKRRRRAERRKRRKRK 
CALL LINV1F(VFMXL,IA,NN,VFMXIN,IDGT,WKAREA,IER 
C KAKAKKARKARKKAK ARR RAK AAER AKA AREA RAE RKERARKRARRKERERKE 
C 


Do CChkiy T= 19a 

DO 3011 J=1,NZ 

VFMXC(I,J)=0. 

DO 3011 K=1,NZ 

VEMXC(I,J)=VEMXC(1,J)+VEMXIN(I,K)*VEMXR(K,J) 
3011 CONTINUE 


C 
C *** NONDIMENSIONIZE THE RADIATIVE MATRIX COEFICIENTS 
G 
DO 1233 I=1,NZ 
DOwi2s3 = NZ 
VFMXC(1,J)=VFMXC(I,J)*CONSRA 
1233 CONTINUE 
C 
C **k* PRINT OUT VIEW FACTOR MATRIX COEEFICIENTS 
C 
IF (NTREAL.NE.NWRITE) GO TO 12 
WRITE(6,11) 
ll FORMAT(/ 5X. '(VFMRG(1, J) J=ieNZ) I=) Nz ae 
CALL WRITE2(VFMXC,NZ,1,NZ,1,NZ) 
12 CONTINUE 
RETURN 
END 


182 


a) 


AAMaA Oa ANAAAN 


AAN AAY 


AAD 


SUBROUTINE CALVIS 


KKK KK RK KKKRKKKKKRKRKKRKKKKKRKAKKRKKKKKKRRKRKKRKKKRKKKKAKKAERA 
COMMON /BL1/BUOY ,VISL,VOL,VOLDT,KBOUND , DTIME ,NTREAL, SORSUM,NWRITE 
COMMON /BL2/ DX,DY,DZ,DXY,DYZ, DZX, XYOZ, YZOX, ZXOY , XYPZ, YZPX, ZXPY 
COMMON /BL3/ NI,NJ,NK,NIMI,NJM1,NRKM1,NIM2,NJIM2,NKM2 
COMMON/CONS/XTIME,NT,UO,PRT,TA, 

& NIMAXO, RA, CPAIR, SIGMA 
COMMON/NE/ (22,18, Bi nn 27e ometa (22 18, 18) -R(22),18,18), 

& Pee, leds yin 22,8 18) woD(22,18,18 

P(22,18,18),W(22,18,18) ,WOD(22,18,18),NOD(22,18,18) 
COMMON/BL12/ DYZ02,DZX02 , DXYO2, XYPZ2, YZPX2, ZXPY2,DX4,DY4, DZ4 

5 /XYOZ2, YZOX2, ZXOY2, DYZ04 , DZX04 , DXY04 
COMMON/BL10/' Z(30) ,REO(30) ,VIS(22,18,18) , RRES(3) 
COMMON/BL80/BTURB,ABTURB,CNT,D&2, DY2,DZ2, VISMAX 

iS 'SMPP(22,18,18),R1I(22,18,18) 

COMMON /VIEW2/ MIIZ(9), MIIZ(9) /MKKZ(9),LI(9) ,LJ(9),LK(9), 

& ITHIN(9),JTHIN(9) ,RTHIN(9) , AX¥(9), fr en) 

iS IHSB(9),JHSB(9),KHSB(9) ,NHSW(9),NHSD(93) ,NHSH(9), 

iS LTYPE (9,6) 

Aw CALCULATE LOCAL SHEAR AND VISCOSITY VIS(I,J,R) 
RK SPECIFY LOCAL TURBULENT LENGTH SCALES SMPP(I,J,K) 
DO 611 I=2,NIM1 
IP1=I+1 
IM1=I-1 
DO 611 J=2,NJIM1 
Ra CACULATE DV/DX,D2V/DX2,DU/DX,D2U/DX2,DW/DX AND D2W/DX2 
JIM1=J-1 
IPl=J+t1 
DO 611 K=2,NKM1 
KML=K-1 
RP1=Kt1 

Peep ,J,K)}.GE.11)Go To 611 
DVDX= v(Tes, /JP1,K)+V(IP1,J3,K)-V(IM1,J,K)-V(IM1,JP1 8) )/D¥4 
D2VDX2=((V(IP1,JP1, Ra? | ae (K(V(L,J5P1,K)+V(1L,J,R)) 

S +(V(IM1,JP1,K)+V(IM1,J,K)))/DX2 
DUDX=(U(IP1,J, sK)- Gn Db 
D2UDK2=( (U(I+2 Sl Tes i) CIML JK) )) /DX2 
DWDX=(W(IP1,J,KP1)+W(IP1,J,K)-W(IM1,J,K)-W(IM1,J,KP1))/DX4 
D2WDX2= ee er en jae OP) 

& +(W(IM1, JP1,K)+W(IM1,J3,K)))/DxX2 

602 CONTINUE 3 
KAR CALCULATE DU/DY,D2U/DY2,DV/DY,D2V/DY2,DW/DY AND D2wW/DY2 
DUDY= cu I,JP1,K)+U(IP1,JP1,K)-U(IP1,JM1,K)-U(I,JM1 ,&) )/D¥4 
_ Deuby2= are oe) R40 Ger] ee, ce ae (UCT, Teoremierel, J K)) 
+(U(1T, M1 ,K)+U(IP1,JM1,RK)))/DY2 
= Galt JP1,K)+W(IP1,JP1,K)- “W(TPL, JM1,K)-W(I, JM1,K))/D¥4 
D2WDY2=( (W(L, JP K)+W(1,0P1, KP) )72 SO Tea onl, J, KP1)) 

2 +(W(L,dJM1,K)+W(1,JM1,KP1)))/DY2 

DRDY=(R(1,JP1,K )- REQ(KP1)-R(1L,JM1,K)+REQ(KM1))/DY*.5 
DVDY= Wiel Ese K)- EReL J. KO DY 
D2vVDY2=((V(I,d+2,K)-V(L,JP1,K))-(V(I,J,K)-V(1I,dM1 ,K)))/DY¥2 

606 CONTINUE 
ARK CALCULATE DU/DZ,D2U/DZ2,DV/DZ,D2V/DZ2,DW/DZ AND D2W/DZ2 


DUDZ= ee ,JP1,K)+U(IP1,JP1,K)- U(TPI, JM1,K)-U(I,JM1 5) )/Dz4 
D2UDZ2=( (U(I, 5P1 Poe ree IP1 /K))-2 (UCL, o K)+U(IP1,J nie 
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+(U(L,JM1 RY HUCTEL JM1,K)))/DZ2 
* pypz= (V{(L,JP1,K)+V(L,JP1,KP1)-V(L,JM1,KP1)-V(1,JM1,K))/Dz4 
D2VDzZ2=((V(I,JIP1,K)+V(1,JP1,KP1))-2.*(V(1I,J3,K)+V(1,d,KPL)) 
a +(V(L, JM1L.K)+V(1I, IM1L,KP1)$3/DZ2 
DRDZ= fe I, J,KPl Pe SR(T, J, KM1)+REQ(KM1))/DZ2 
DpWwDZ=(W(I,J,KP1)-W( 
D2WDZ2=((W(L,J,K+2)-W(1,d, Le ) « (W(I,J3,K)-W(I,J,KM1)))/Dz2 





C 
C **x*X - CALCULATE RICHARDSON NUMBER 


C 
STRAIN=DUDY** 2+DVDX** 2+DWDX** 2+DVDZ**2+DWDY**2+DUDZ**2 
DDO2 = SORT (DUDY*DUDY+DUDK*DUDX+DUDZ*DUDZ+DVDY*DVDY+DVDX*DVDX+ 
& DVD2ADV52++DHDK*DHDX# DHDY*DHDY+DHDZADHDZ 
IF(DDO2.E0.0.)GO TO 600 
C xR CALCULATE TURBULENT LENGTH SCALE SMPP(I,J) 


SMB123= =SQRT(U(I,J,K)*U(I,J,K)+V(I,J,K)*V(I,3,K)+W(I,J,K)*W(I,5,K)) 
& /DDO2 
SMPP12=DDO02 /SORT(D2UDX2*D2UDX2+D2UDY2*D2UDY2 
& +D2UDZ2*D2UDZ2+D2VDX2*D2VDX2+D 2VDY2*D2VDY2+D2VDZ2*D2VDZ2+ 
& D2WDZ2*D2WDZ2+D 2WDX2*D2WDK2+D 2WDY 2*D 2WDY2) 
SMPP(I,J,K)=CNT*(SMP123+SMPP12)*.5 
motes e KJ =" BuOYADRDZ/ (R(T, J 3,K)*STRAIN) 
ABRIPR=ABTURBtRI(I,J3,K)/P 
CE Cage ie Op Go 10 500 
IF(ABRIPR .£0. 0.) GO TO 613 
GO TO 610 
600 VIS(I,J,K)=VISL 
GO TO 611 
613 VIS(I,J,K)=VISMAX 
GO TO 611 
610 VIS(I,J,K)=VISL+R(I,J,K)*SMPP(I,J,K)*SMPP(I,J,K)*SORT(STRAIN) / 
& (BTURB*ABRIPR) 
IF(VIS(L,J,K) .GT. VISMAX) VIS(I,J,K)=VISMAX 
611 CONTINUE 
ec De Om I=1vw Ive 
ec DO 41 J=JVS,IVN 
GE VIS(L,J,NK)=VIS(I,J,NKM1) 
CC 41 CONTINUE 
Ce DO 42 I=IDW,IDE 
ee DO 42 K=2,KD1 
Ge VIS(IL,NJ,K)=VIS(I,NJM1 ,K) 
CC 42 CONTINUE 
RETURN 
END 
SUBROUTINE CALUV 
G RAEKKKRKKRAKRKKKKRKRKKRKAARKRKRRARKRKRRRRRRRRKRKRKRRRRRRRRRKRRKRKRKRRARRRRKAKRKRKRKKKRKRKRKRRARRERR 
C 
COMMON /BL1/BUOY,VISL,VOL,VOLDT,KBOUND , DTIME ,NTREAL, SORSUM,NWRITE 
COMMON /BL2/ DX,DY,DZ,DXY,DYZ,DZX, XYOZ, YZOX , ZXOY , XYPZ, YZPX , ZXPY 
COMMON /BL3/ NI,NJ,NK,NIM1,NJM1,NKM1 ,NIM2,NJM2,NKM2 
COMMON/CONS/XTIME,NT,UO,PRT,TA, 
a NTMAXO, BA, CPAIR, SIGMA 
COMMON/NE/ U(22,1 
e P 


é & P(22,18 
COMMON /OD/UOD (22 
COMMON /BL31/TPD ( 
& "VPB( 22,185 18) W 
COMMON/CO/AP(22,1 
& Fo 22, lee ecun 
COMMON/PP/DU(22,1 
COMMON/BL10/ 2(30) 
COMMON/BL12/ DYZ02,D YPZ2,YZPX 
/X¥O0Z2, YZOX2, ZXOY2, DYZO4 , DZX04 , DX 
COMMON /VIEW2/ Me -MKKZ(9) ,L1I(9), 
ITHIN(9) , JTHIN(9) , KTHIN(9) , AXY 
IHSB(9) , JHSB(9) ,KHSB(9) , NHSW(9) 

LTYPE(9,6) 


~ es 
OX 00 
a OQ 
i. 
NO-™ 


00 (22, 18,18) 

8 —_— 18 alee 
ei 

M(20),ITER 
/AN(22,18,18), 

/18),AB(22,18,18) 
PP (22), lemon 


/DX4,DY4,DzZ4 
9), LK(9), 

Z(9), BZk( ae 
(9) |NHSH(9 


™ O©-~ 
OO HU NO NO 
Oo 


=e) 

ie = 

o-.,"-~. 

hoo 
Ea Sila ee = 
Cy - J Cor OO YY). 
SP Sea hs 

~~ 


oo, 
= io 
i 
i> 
WY 
KS 


LIQ §—- 


~ 
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DO 100 I=3,NIM1 





oe l=1+1 
IM1=I-1 
DO 100 J=2,NJM1 
JP1=J+1 
so 
DO 100 K=2,NKM1 
KP1=K+1 
KM1=K-1 
e Be)? -2.K).c GE. 11)60 TO 100 
C IF(NOD(I,J,K).EQ.3)GO TO 1000 
C 
CE=DXYO24R(I,J, it, (J,K)+U(IP1,J,K)) 
CW=DYZO24R ae)” u(I,3,K)+U(IM1 J KD) 
CN=DZX04%((R(1I,J,K)+R(1,JP1,&)) AV(I | JP1,K) 
&  #(R(IML,J,K)+R(IM1 ,JP1 RY) AV IML, JP1,K)) 
CS=DZX04%((R(I,J,K)+R(L,JM1,K) Jy 
& +(R(IM1,J3,K)+R(IM1, JM1 av (ti, 3,K)) 
CF=DXY04*((R(I,J,K)+R(1,J,KP1) AW(I,J,KP1) 
& +(R(IM1L,J,K)+R(IM1.J,KP1))*W(IM1,J,KP1)) 
CB=DXYO4%((R(I,J,K)+R(I,J,KM1)) | *W(I,J3,K) 
& +(R(IM1,J,K)+R(IM1,3,KM1))*W(IM1,J,K)) 
e 
VISCE=VIS(IP1,J,K 
VISCW=VIS(IM1,J,K 
VISCS=VIS(I,J3M1,K 
VISCN=VIS(I,JP1,K 
VISCB=VIS(1,3,KM1 
VISCF=VIS(I,J.KP1 
AE(I,J,K)=0.5%( ABS(CE)-CE)+YZOX*VISCE 
AW(I,J3,K)=0.5%( ABS(CW)+CW)+YZOX*VISCW 
AN(I,3,K)=0.5%( ABS(CN)-CN)+ZXOY*VISCN 
AS(1,3,K)=0.5%( ABS(CS)+CS )+ZXOY*VISCS 
AF(I,J3,K)=0.5*( ABS(CF)-CF)+XYOZ4VISCF 
AB(I,J,K)=0.5%( ABS(CB)+CB)+XYOZ*VISCB 
E 
SP(I,J,K)=-0.5*(ROD(I,J,K)+ROD(IM1,3,K))*VOLDT 
Pas (P(TMI, J /K -P(I,Jd,K))*DYZ 
RU=0.5*(ROD(IM1,J3,K)+ROD(I,J,K))*UOD(I,J3,K)*VOLDT 
RE=(UOD(IP1,3,K)-UOD(I,J, eee 
RW=(UOD(I,J3,K)-UOD(IM1,J,K) )*VISCW*YZOX 
RN=(VOD(I,JP1,K)-VOD(IM1,JP1,K) )*VISCN*DZ 
RS=(VOD(I,J. .K)-VOD(IM1,3 .K))*VISCS*DZ 
RF=(WOD(I,J,KP1)-WOD(IM1,J3,KP1))*VISCFADY 
RB=(WOD(1,J,K )-WOD(IM1,J,K AVISCB*DY 
SU(I,J,K)=PX+RU+RE-RW+RN-RS+RF-RB 
C GO TO 100 
Sroce Sidi .J, lee: 
C APT, =1.E20 


100 CONTINUE 


c 
Cece |) 
G 


EFT AND RIGHT WALLS 


DO 101 J=2,NJM1 

DO 101 K=2,NKM1 

AW(3,J,K)=0. 

CW= (R(2 JK) +R(3, J,K))*U(3,3,K)*DYZ04 

vIsw= VIS(2,3° 
P(3 IOS ey J,K)-0.5%( ABS(CW)+CW)-YZOX4VISW 

3E NIM1,J,K)=0. 

CE=(R(NIM1,J,K)+R(NIM2,J3,K))*U(NIM1,J,K)*DYZ04 

VISE=VIS(NIM1,J,K 

SP(NIM1,J,K)=SP(NIM1,J,K)-0.5*( ABS(CE)-CE)-YZOX*VISE 


~ 


101 CONTINUE 


DO 102 I=3,NIM1 
IMl=I-1 


C 
C 


ANIOANAANAMmMONM MAM 


M.AOADA 


C 


kk” REAR AND FRONT WALLS 


DO 107 K=2,NKM1 

AS(I,2,K)=0. 
VISS=0.25*(2.*VISL+VIS(I,2,K)+VIS(IM1,2,K)) 
SP(I 2, K)=SP(1,2,K) amen aies 
AN(I.NJM1,K)=0. 

IF(NOD(I,NJML,K).EQ.2)GO TO 107 
VISN=0.25*(2.*VISL+VIS(I,NUJM1,K)+VIS(IM1,NJM1,K)) 
SP(I,NUML,K)=SP(I,NJM1,K)-ZXOY2"VISN 

107 CONTINUE 


xkKkX TOP AND BOTTOM WALLS 
DOG 163 J=Z Nam 


MEW) 0), 2) =On 
VISB=0. 25% (2. AVISL+VIS(I,J3,2)+VIS(IM1,J,2)) 
SP(1,J,2)58P(T, J,2)-XYOZ2*VISB 
AF(I,J,NKM1)=0. 

IF(NOD(I,J,NKM1).EQ.2) GO TO 103 
VISF=0.25%(2.*VISLHVIS(1,J,NKM1)+VIS(IM1,J,NKM1) ) 
SP(I,J,NKM1)=SP(1,J,NKM1)-XYOZ2*VISF 


103 CONTINUE 
102 Cente 


xKK THE TEST BLOCK 


xX THE CELLS WITH NOD(I,J,K) = 3 
THE VALUES OF SU AND AP ARE GIVEN IN DO LOOP 100 


AKK ASSEMBLY THE COEFICIENTS 


DO 300 K=2,NKM1 

DO 300 J=2,NJM1 

DO 300 I=3,NIM1 

TE(NOD(T, J,K).GE.11.OR.NOD(I,J,K).EQ.3)GO TO 300 
AP(1,J,K)=AE(L,d, KFANIT, on Asana, "J ,K)+AS(1,d,K)+AF(1,J,K)+ 
DEM JK ie I,K 
DU(I,J,K)=DYZ/AP(1,J,K 
300 CONTINUE 


CALL TRID(3,2,2,NIM1 NIM U) 
*xKK GIVE THE U-VELOCITY IN THE VENT AND DOOR GAP 


KAKKAKKAKAKKKAKAKKKKAKKKAKKKAKKAKKKKKAKKAKKAKKKKAKRAKKARKAKKKKKKKKAKAKKKRAKKKKK 


Cee SUBROUTINE CALV 


C 
C 


QAANAN 


KAKKRAARAKRAKAKAKKAAKKKKKKRKAKKKKAKAKKAKAKKAKAK AKA KAA KK KK RAKAAKKRKRKKAKAKKAKK 


DO 150 I=2,NIM1 





IML=I-1 
IP1=I+1 
DO 150 J=3,NJM1 
IM1=J-1 
ied 
DO 150 K=2,NKM1 
KM1L=K-1 
KP L=K+1 
IF(J.EO.NJ.AND.NOD(I,NJM1L,K).NE.2)GO TO 1050 
IF NOD{E, co a Ghedl \eoume deo 
IF(NOD(I,J,K).EQ.4)GO TO 1050 
Ch=(R (oro R(IPL J,K))*U(IP1,J,K) 
+(R(I,JM1,K)+R(IP1,JM1 iB) AU(IP1,JM1,K))*DYZ04 
cW=((R(I,J_ K)#R( TNL, J,K))*u(1,J,K 
+(R(L,JM1L,K)+R(IM1L,JM1,K))*U(I  ,JM1,K))*DYZ04 
IF(J.EQ.NJ)GO TO 1060 


186 


ee mem EE ee 


CN=R(I,J,K)*(V(1I,J,K)+V(1,JP1,K)) *DZX02 
GOume 1070 

1060 CN=R(I,J,K)*V(I,J,K)*DZX 

1070 CONTINUE | 
i kt 81402 gil .K) )DZK02 
CF=((R(I,J,K)+R(1,3,KP1))*W(1I,J,KP1) 











+(R(T, IML, K) +R] JM1,KP1))*W(I,IM1,KP1))*DXYO4 

CB=((R(I,J,K)+R(I,J5,KM1L))*W(1,5,R). | 

; & +(R(L,JM1,K)+R(1,JM1,KM1))*W(I,JM1,K ))*DXYO4 
VISCE=VIS(IP1,J3,K 
VISCW=VIS(IM1,J,K 
VISCS=VIS(1,JM1,x 
VISCN=VIS(I,JP1,R 
VISCB=VIS(1,J,KM1 
VISCF=VIS(I,J,KP1 
AE(I,J,K)=0.5%*( ABS(CE)-CE)+YZOX*VISCE 
AW(I,J,K)=0.5%( ABS(CW)+CW)+YZOK*VISCW 
AN(I,J,K)=0.5%( ABS(CN)-CN)+ZXOY*VISCN 
AS(I,J,K)=0.5%( ABS(CS)+CS)+ZXOY*VISCS 
AF(I,J,K)=0.5*( ABS(CF)-CF)+XYOZ*VISCF 
AB(I,J,K)=0.5*( ABS(CB)+CB)+KYOZ*VISCB 

C 
SP(I,J,K)=-0.5*(ROD(I,J,K)+ROD(I,JM1,K))*VOLDT 
Pu=(P(T/JML,K)-P(T, 3X) XDZX | | 
RU=0.5*(ROD(I,J,K)+ROD(I,JM1,K))*VOD(I,J,K)*VOLDT 
a= H00 irl ae AVISCE*DZ 
RW=(UOD(I ,J,K)-UOD(I ,JM1,K))*VISCW*DZ 
IF(J.EQ.NJ)GO TO 1080 | 
RN=(VOD(1I,JP1,K)-VOD(1,J,K))*VISCN*ZXOY 
GOrro 1090 

1080 RN=0. 
1090 CONTINUE | 

RS=(VOD(I,J,K)-VOD(1, JM1,K))*VISCS*ZXOY 
RF=(WOD abe) ) tL alae) rack °Dx 
RB=(WOD(I,J,K )-WOD(I,JM1,K AVISCB*DX 
SU(I,J,K)=PY+RU+RE-RW+RN-RS+RF-RB 

C GO T 0 

C1050 SU ore 

C AP(I,3,K)= 1.E30 

150 CONTINUE 

@ 

C kk RIGHT AND LEFT WALLS 
DO 151 J=3,NJM1 
JM1=J~-1 
DO 151 K=2,NKM1 


AW(2,J,K)=0. | 
VISW=0.25*(2.*VISL+VIS(2,J,K)+VIS(2,JM1,K)) 
ieee) io. K)-Y20k2 via 

AE(NIM1,3,K)=0. 
VISE=0.25%(2.*VISL+VIS(NIM1,J,K)+VIS(NIM1,JM1,K)) 
SP(NIM1,J,K)=SP(NIM1,J,K)-YZOK2*VISE 

151 CONTINUE 


xk THE REAR AND FRONT WALLS 


DO 152 I=2,NIM1 

DO 152 K=2,NKM1 

AS(I,3,K)=0. 

CS=R(I,2,K)*V(1,3,K) *DZX02 

VISS=VIS(I,2,K 

SP(1,3,K)=SP(I,3,K)-0.5%( ABS(CS)+CS)-ZXOYAVISS 
€ IF(NOD(I,NJM1,K).EQ.2)GO TO 170 

AN(I,NJM1,K)=0. 

CN=R(I,NJM1,K)*V(1I,NIM1,K)*DZXO2 

VISN=VIS(I,NJM1,K 

SP(I,NJM1,K)=SP(I,NJM1,K)-0.5%*( ABS(CN)-CN)-ZXOY*VISN 
C Coe 57 


AAM 


187 


G 


C 
c 


O) 


ANAANAANAANAMTA aN 


AAM OO 


aA 


170 AN(I,NJ,K)=0. 
152 CONTINUE 


c 
xx*X THE TOP AND BOTTOM WALLS 


DO 153 lez, Nei 
DO 153 J=3,NJM1 


JML=J-1 

AB(I,J,2)=0. 

VISB=0.25*(2.*VISLtVIS(1,J 2 )4VIS(I, JM1,2)) 
ee VIS 
AF(I,J,NRKM1)=0. 

LF (NOD(I,J,NKM1) .EQ.2)GO BOD liek 
VISF=0.25*(2.*VISL+VIS(I,J,NKM1)+VIS(I,JM1,NKM1) ) 
SP(I,J,NKM1)=SP(1I,J,NRKM1)-XYOZ2"VISF 

GOs FO 153 

171 AF(I,J,NK)=0. 


153 CONTINUE 
xAX FOR THE TEST BLOCK 


xX THE CELES WITH NODC) Geom ee! 
_.. THE VALUcS OF SU AND AP TARE GIVEN IN DO lee. lcs 
xn THE CEbbo INST DEM ee POOra .iel 

THE VALUES OF SU AND AP ARE GIVEN Gi DO EOGEeTeS 
xu ASSEMBLY THE COLFICICINs 


DO 350 K=2,NKM1 
DO 350 J=3,NJM1 
DO 350 I=2,NIM1 
TE(NOD(T, 3,K).GE.11.0R.NOD(1, J,%) -20.4)Gomme 350 
AP(I,J,K)=AE(1,J, Kea ee RQFAN(T, (J, K)+AS(I,3,K)+AF(I,J,K)+ 
& AB(I,J,K)-SP(1,J,K 
DV (id K) =Deeeyae (1, JK 
350 CONTINUE 


CALL TRID(2,3,2,NIM1 ,NJM1 ,NKM1,V) 
kkk GIVE V-VELOCITY IN THE VENT AND DOOR GAP 


RE PUR 
END 


SUBROUTINE CALW 
KAKKARKAKAKAAKARAKKAKAAAKAAKKAKAKAAKAAKAKAAAKKAKAAKAAKAKAKKAAAKAAAKAAKKKAAKAKKKAKAKK 


COMMON /BL1/BUOY,VISL,VOL,VOLDT,KBOUND , DTIME ,NTREAL, SORSUM ,NWRITE 
COMMON /BL2/ DX,DY,DZ,DKY ,DYZ,DZX, KYOZ , YZOK,220Y | AYPZ) YZ ee 
COMMON /BL3/ NI,NJ,NK,NIM1,NJM1,NKM1,NIM2,NJM2,NKM2 © 
COMMON/CONS/XTIME ,NT,UO,PRT,TA, 

& NIMAXO, RA, CPAIR, “SIGMA 


COMMON/BL10/ Loe ,REOQ(30),VIS(22,18,18),RRE eae 
COMMON /NE / 72 wee 18) V(22,18,18),T(22,18,18),R(22,18,18), 

& P(22,18,18),W(22,18,18) ,WOD(22,18,18) 

& ero?) ora 18) 8 Tone HOD (22 ie 
COMMON /OD/UOD(22,18,18) , VOD(22,18,18) , TOD(22,18,18) ,ROD(22,18,18) 
COMMON/BL31/TPD(22,18,18),RPD(22,18,18) ,UPD(22,18,18 

& VPD(22,18,18), WED (22, 18,18),PPD(22,18,18), RESORM(20), ITER 
COMMON/CO/AP(22,18,18) ,AE(22,18,18) ,AW(22 18,18) ,AN(22, ee 12). 

& AS(22,18,18),SU(22,18,18),SP(22,18,18),AF(22,18,18) ,AB( 22006) men 
COMMON/PP/DU(22,18,18),DV(22,18,18) ,DW(22,18,18),PP(22,18,18) 
COMMON/BL12/ DYZO2,DZX02, DXYO2 , XYPZ2, YZPK2 , ZXPY2 , DX4, D¥4,D24 

& /XY¥OZ2, YZOX2, ZXOY2, DYZ04, DZKO4 , DXYOA 
COMMON /VIEW2/ HIT2Z(3) | Meee) g »MKKZ(9),LI(9),Ld(9) ,LK(9), 

& THIN(9), JTHIN(9) , KTHIN(9) , AXY ( 2?) ae 

& 1HSB (9), JHSB(9),RHSB(9),NHSW(9) ,NHSD(9),NHSH(9), 

& LTYPE(9,6) 


DO 100°-T=2Z7NiMa 
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A”AOAM 


c 


rE 


QM LF QW W 


pel = T= 1 


IP1l=I+l 
DO 100 J=2,NJM1 
JM1=J-1 
JP1=J+1 
DO 100 K=3,NKM1 
KM1=K-1 
KP1=K+1 
LE err dak eGe sl )GO-TO 100 
at .NK.AND. NOD(T, J,NKM1).NE.2)GO To 1000 
NOD ty eer 5)GO TO 1000 
SAC aS a i) ) i tel Jak) 
+(R(I,J,KM1 )+R CIPI Teo eee J Kal) 
CW=DYZ04*((R(I,J,K)+R(IM1,J,K) Uo) 
#(R(T J, REL) +R (TH J KML) )*U(T, J, KML) ) 
CN=DZX04*((R(1,J, Her JP1,K) AV (I rea 
POR ser eR (EJP) a ,JP1,KM1)) 
CS= BAAS oe y+R(I,JM1,K)) Gis en) 
#(R(T J, RHL)+R(T, JM1 KML) av (1 Pd PRO )) 
IF(K.EQ.NK)GO TO 130 
CF= DRYODER CT J,K )*(W(I,J,K)#tW(I,J,KP1)) 


GeeToO 131 


130 CF=DXY*R(T,J,K)*W(1I,J,R) 
131 CONTINUE 


CB=DXYO2*R(I,J,KM1)*(W(1,J,K)+W(I,J,KML) ) 


VISCE=VIS(IP1,J,K 

VISCW=VIS(IM1,J.K 

VISCS=VIS(I,JM1,K 

VISCN=VIS(I,JP1.K 

VISCB=VIS(I,J,KM1 

VISCF=VIS(1I.J,KP1 | 
AE(I,J,K)=0.5%( ABS(CE)-CE)+YZOX*VISCE 


AW(I,J,K)=0.5%( ABS(CW)+CW)+YZOX*VISCW 
AN(I,J,K)=0.5%*( ABS(CN)-CN)+ZXOY*VISCN 
Pel ik )=0.5*%( ABS(CS)+CS)+ZKOY“VISCS 
Bee JK )—0.5*( ABS(CE)-CF )+XYOZ*VISCF 
AE, J;,K)-Onee ABSQGB) +68) -RyOZ*VISCB 


SP(I,J,K)=-0.5*(ROD(I,J,K)+ROD(I,J,KM1))*VOLDT 


Past -BUOY*0. S*(R(T, dy Ps REQ(K)+R(T, J,KM1)-REQ(KM1))*VOL 
(P(T, J,KM1)-P(I,d,K))* 

X(ROD(I,J RL) 4ROD(T. k /K))*AWOD(I,J,K)*VOLDT 
RE= UOD(IP1,J,K)-UOD(IP1,J,KM1) )AVISCEXDZ 

RW=(UOD(I  ,J,K)-UOD(I ,J,KM1))*VISCW*DZ 
RN=(VOD(I,JP1,K)-VOD(I,JP1,KM1))*VISCN*DX 

RS=(VOD(I,J ,K)-VOD(I,J  ,KM1))*VISCS*DX 

IF(K.EQ. NK)GO_ TO 133 
RES (HOD (TJ /KP1)-WOD(I,J,K) )*VISCF*XYOZ 

O TO 13 


eee xyoz*wop(1,J.K)AVISCE 
134 CONTINUE 


RB=(WOD(I,J,K)-WOD(I,J,KM1))*VISCB*XYOZ 
So Ie ,K)= BURO+PZ+RU+RE - RW+RN-RS+RF-RB 


GO TO 100 


SLO00 VaUial. cde 


=0. 
API, iJ Ri eZ 0 
100 CONTINUE 


€ 
C *** THE TOP AND BOTTOM WALLS 


C 


DO Oar Ze Nim 
bey ots —2Z Nol 


AB(I J, 3)=0. 

CB=R(I,J,2)*W(1,J,3)*DKYO2 

Vise =7 hs (ie?) 

SP(I,J,3)=SP(I,J,3)-0.5%*( ABS(CB)+CB)-XYOZ*VISB 
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AANAANAMAN MOM AAA aN 


aa 


IF(NOD(I,J,NKH1).EQ.2)GO To 132 
AF(I,J,NKM1)=0. 
CF=R(I,J,NKM1)*W(1I,J,NKM1)*DXYO2 
VISF=VIS(1,J,NKM1) 
SP(I,J,NKM1)=SP(I,J,NKM1)-0.5*( ABS(CF)-CF)-XYOZ*VISF 
Go. TO 101 
132 AF(I,J,NK)=0. 
101 CONTINUE 


xx THE REAR AND FRONT WALLS 


DO 102 I=2,NIM1 
DO 102 K=2,NKM1 
KM1=K-1 
Petia 2K) =O. 
VISS=0.25*(2.*VISL+VIS(1,2,K)+VIS(1I,2,KM1) ) 
atte, ola) a oe 
AN(I,NJM1,K)=0. 
IF(NOD(I,NJM1,K).EQ.2)GO TO 102 

VISN=0 .25*(2.*VISL+VIS(I,NJM1,K)+VIS(1I,NJM1,KM1) ) 

SP(I,NJM1,K)=SP(1I,NJM1,K)-ZXOY2*VISN 
102 CONTINUE 


*k*A THE RIGHT AND LEFT WALLS 


DO 103 J=2,NJM1 

DO 103 K=2,NKM1 

KM1=K-1 

AW(2,J,K)=0. | 

VISW=0.25*(2.*VISL+VIS( 2) Jas VIS(2 ae 

a ee 

AE(NIM1,J,K)=0. 

VISE=0 .25%(2.*VISL#VIS(NIM1,J,K)+VIS(NIM1,J,KM1) ) 
SP(NIM1,J,K)=SP(NIM1,J,K)-YZOX2*VISE 

103 CONTINUE 


*xk* THE TEST BLOCK 
*k** THE CELLS WITH NOD(I,J,K) = 5 
_ THE VALUES OF SU AND AP ARE GIVEN IN DO LOOP 100 
x*kX THE CELLS INSIDE THE TOP WALL 
THE VALUES OF SU AND AP ARE GIVEN IN DO LOOP 100 


kkk ASSEMBLY THE COEFICIENTS 


DO 300 I=2,NIM1 
DO 300 J=2,NJM1 
DO 300 K=3,NKM1 | 
TE(NOD( 13,4) Cl. 1 i TO 300 
IF(NOD(1I,J,NKM1).EQ.2.AND.K.EQ.NK)GO TO 300 
AP(I,J,K)=AE 11 ae 1,J,K)+AN(I,J,K)+AS(1I,J,K)+AF(I,J,K)+ 
& AB(I,J,K)-SP(1,J,K 
DW(I,J,K)=DKY/AP(I,J,K 
300 CONTINUE 


CALL TRID(2,2,3,NIM1,NJM1,NKM1,W) 


RETURN 
END 


SUBROUM IIE € ALP 
KAKKKAKARAKKRAKKKARKAKRKAKKKAAKAKAKKAKKAKAAAKKRAKKKKKAKKKRAKRAAKAKAKKKRKKAAKARKR 


COMMON /BL1/BUOY,VISL,VOL,VOLDT,KBOUND, DTIME ,NTREAL, SORSUH, NWRITE 
COMMON /BL2/ DX,DY,DZ,DXY, DYZ, DZX, XYOZ , YZOX , ZXOY , XYPZ, YZPX , ZXPY 
COMMON /BL3/ NI,NJ,NK,NIM1,NJM1,NKM1,NIM2,NJM2,NKM2 
COMMON/CONS/XTIME,NT,UO,PRT,TA, 

is NTMAXO,RA,CPAIR, SIGMA 
COMMON/BL10/ 2(30) REO (50) aiaeaa 


RRES (3 
COMMON/NE/ U(22,18,18),V C22 aes nS, t 


Lee 
T(22,18, 19)6R(22, Lemme) 
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MO) 


AAM 1M 


e oP 622, 18,18),W(22,18,18) ,WOD(22,18,18) 

& B22 18,18) W022 18,48) 0D(22 04 48) .NoD(22.18 1 ) 
COMMON/OD/UOD(22,18,18) , VOD(22,18,18),TOD(22,18,18) ,ROD(22,18,18) 
COMMON/BL31/TPD(22,18,18),RPD(22,18,18),UPD(22,18,18), 

& VPD(22,18,18),WPD(22,18,18),PPD(22,18,18) , RESORM(20),ITER 
COMMON/CO/AP(22,18,18),AE(22,18,18) ,AW(22,18,18),AN(22,18,18), 
Bete? a 18) SU(22 18,18) 1SP(22,18,18) ,AF(22,18,18) ,AB(22,18,18) 
COMMON/PP/DU(22,18,18),DV(22,18,18) ,DW(22,18,18),PP(22,18,18) 
COMMON/BL12/ DYZO2,DZXO2,DXYO2,XYPZ2, YZPX2,ZXPY2,DX4,DY4,DZ4 
& /XYOZ2, YZOX2 , ZKOY2 , DYZO4 , DZX04 , DXYO4 
COMMON /VIEW2/ HITZ(9) , MIIz (9) 4 'MKKZ(9) ,LI(9),LJ(9) ,LK(9), 
S ITHIN(9) , JTHIN(9), RTHIN(9) -AY(9) -AYZ(9) .AZK(9) , 
& IHSB(9), JHSB(9) ,KHSB(9) ,NHSW(9) ;NHSD(9),NHSH(9), 
e LTYPE(9,6) 
DO 100 I=2,NIM1 
IM1=I-1 
(e1=1+1 
DO 100 J=2,NJM1 
JP1=J+1 
JM1=J-1 
DO 100 K=2,NKM1 
KRP1=K+1 
RM1=K-1 
IF(NOD(I,J,K).GE.11)GO To 100 
es TO 301 
AE(NIM1,J,K)=0. 
CE=0. 
GO Te slo 
301 CONTINUE 
AE(I,J,K)=(R(1,J,K)+R(IP1,J,K))*DYZO2*DU(IP1,J,K) 
CE=(R(I,J,K)+R(IP1,J,K))*U(IP1,J,K) *DYZO2 
302 CONTINUE 
oe? neorTo 303 
a2 © 3 ,K)=0. 
CW=0. 
GO TO 304 
303 CONTINUE 7 
AW(I,J,K)=(R(1,J,K)+R(IM1,J3,K))*DYZO2*DU(I J, K) 
CW=(R(I,J,K)+R(IM1,J,K))*U(I = ,J,K)*DYZO2 
304 CONTINUE 
AN(I,J,K)=(R(1,J,K)+R(I JPL ,K) )*DZKO2SDV(T, JP1,K) 
CN=(R(I,J,K)+R(1,JP1,RK) )*V(1, JP1, K) *DZX02 
AS(I,J,K)=(R(I,J,K)+R(1,JM1,RK) )*DZXO2*DV(I,J_,K) 
CS=(R(I,J,R)+R(1,JM1,K))4V(L,J  ,K)*DZXO2 
AF(I,J,K)=(R(I,J,K)+R(1,J,KP1) )*DXYO2*DW(I,J,KP1) 
CF=(R(I,J,K)+R(1,J,KP1) )*W(1,d,KP1) *DXYO2 
AB(I,d,K)=(R(L,J,K)+R(1 J, Kul) )*DKYO2"DW(T, wR) 
CB=(R(1,J,K)+R(1L,J,KM1))*W(I,J,K )*DXYO 
SP(I,J,K)=0 


SU(I,J,K)=(ROD(I,J,K)-R(1I,J,K)) *VOLDT-CE+CW-CN+CS-CF+CB 
100 CONTINUE 


xXx THE TOP AND BOTTOM WALLS 


DO 101 I=2,NIM1 
DO 101 J=2,NJM1 
weil. U2) Son 
AF(I,J,NKM1)=0. 
Lee J,NKML) 


&SP(I,J,NKM1)=-0. Aerie J,NKM1)+R(1I,J3,NK))*DW(I,J,NKM1)*DXY 
101 CONTINUE 


xk THE REAR AND FRONT WALLS 


DO 102 I=2,NIM1 
DO 102 K=2,NKM1 


koi 


C 
G 

102 
c 
G AKR® 
é 
C 


foe 


600 
601 


602 


C221 
220 


c 
C xxx 


241 
242 


&Siy 


AS(I,2,K)=0. 

AN(I,NJM1,K)=0. 

ZE (NOD (I, 'NJML,R). £07) 
I,NJML,K)=-0.5*(R(I,NJML,K)+R(I,NJ,K))*DV(I,NJM1L, K)*DYZ 

CONTINUE 


THE RIGHT AND LEFT WALLS 
GIVEN IN DO LOOP 100 


Teele BLOCK 
CONTINUE 


ASSEMBLY THE COBRICiaiiis 


DO 150 I=2,NIM1 
DO 150 J=2,NJM1 
DO 150 K=2,NKM1 
TE(NOD(T, J WO Ge.. 11 )Gommemio0 
AP(I,J OSAE AT, J,K oes 7 eel, .J,K)+AS(1,J K)FAF(T, iw 
AB SP 


I,J iK Lane 


CONTINUE 
CALL TRID(2,2,2,NIMT NOM ,NKMI PP) 


DO 600 I=3,NIM1 
DO 600 J=2,NJM1 
DO 600 K=2,NKM1 
oa J Res. 11 Yeo Tema 

U(I,J,K)=U(I,J RYADU(T, J,K)*(PP(I-1,J3,K)-PP(1,J,K)) 
CONTINUE 

DO 601 I=2,NIM1 

DO 601 J=3,NJM1 

DO 601 K=2,NKM1 
BAe J,K).GE.11)GO TO 601 

L,J,K)=V(1,J3,K)+DV(I,J R(PP(I, J-1,K)-PP(I,J,K)) 

CONTINUE 

DO 602 I=2,NIM1 

DO 602 J=2,NJM1 

DO 602 K=3,NKM1 
or: J KOSCE | lipiesenouce? 

I,J, K)=W(I,J,K)+DW(1,J,K)*(PP(1I,J,K-1)-PP(I,J,K)) 

CONTINUE 

DO 220 T=2anoml 

DO 220 J=2,NJM1 

DO 220 K=2,NKM1 
te J,K).GE.11 GO. 100220 

P =P(I,J,K)+PP(1I,J,K) 

Pen — OF 
WRITE(6 ,221)1,J, K,B(T 1J,K) 
FORMAT(5X,'I',14,'g', 4" 'K! I4,'P!,E11.4) 
CONTINUE 


RESET THE VELOCITY IN THE FREE BOUNDARY 


SORSUM=0. 

RESORM(ITER)=0. 

DO 240 I=2,NIM1 

DO 240 J=2,NJM1 

DO 240 K=2,NKM1 
IF(NOD(I,J,K).GE.11)GO TO 240 

IF(I. Ae .NIM1L)GO TO 241 


CE=(R(I,J,K)+R(I+1,J3,K))*U(I+1,J3,K)*DYZO2 
COmmo, 247 

CONTINUE 

CE=0.. 

CONTINUE 

CW=(R(I,J,K)+R(I-1,J3,K))*U(I ,3,K)*DYZO2 
CN=(R(I.J,K)+R(I, J+1,K) )*V(L, J4+1,K) *DZXO2 
CS=(R(T,J,K)+R(1L,0-1,K) )*¥(1,0 © Kua ee 














oe 


te hed it) TACT, 2 ,K+1) SD xvO? 
CB=(R(I,J,K)+R(L,J,K-1))*W(I,3,K  )*DXYO2 
RESIDU=(ROD(I,J,K)-R(L,J,K) )*VOLDT-CE+CW-CN+CS-CF+CB 
SORSUM=SORSUM+RESIDU 

RESORM (ITER )=RESORM( ITER)+ABS(RESIDU) 


240 CONTINUE 


RETURN 
END 
ESEGOULENE TRED( IST, JST, KST ,I[SPeJSP ,KSP, PHI 


Co RRAKKRRAKARKARAAKARKAARARKAARAAAKR RAK RA AK RA AKRARRRARRKRAKRAAKKRAKKAAKARAKRR 


© 


c 


e 


COMMON /BL3/ NI,NJ,NK,NIM1,NJM1,NKM1,NIM2,NJM2,NKM2 
COMMON/BL31/TPD(22,18,18),RPD(22,18,18) ,UPD(22,18,18), 

& VPD(22,18,18),WPD(22,18,18),PPD(22,18,18),RESORM(20),ITER 
‘COMMON/CO/AP(22,18,18),AE(22,18,18) ,AW(22,18,18) ,AN(22,18,18), 

& AS(22,18,18) ,SU(22,18,18),SP(22,18,18),AF(22,18,18),AB(22,18,18) 
DIMENSION A(25),B(25),C(25) , PHI(22,18,18) 


Reet —LST=-1 
eric: 
@.fSTMl)=0. 

DO 100 J=JST,JSP 
DO 100 K=KST,KSP 
Peowlei  l=I1ST,ISP 











ee 2 ete ( TNH XK) =EHE(T No 1) 

IF (KSP.EQ.NK)PHI(I,J,NK+1)=PHI(I,J,NK) 

A(L)=AE(T,J,K 

B(I)=AW(I,J,K) | 

eo Han (ad. 6 eS (TI. K) SPUD E Tad K) 
een coat 1,0, K+1 ee PHI (I, J,K-1)+SU(I,J,X) 

TERM=1./(AP(I,J,K)-B(I)*A(I-1) 

Be thtt werk 

C(I)=(C(1)+B(I)*C(I-1) )*TERM 


fol CONTANUE 


PHI(ISP,J,K)=C(ISP) 

PSTA=IST+1 

DO 102 II=ISTA,ISP 

[=IST+ISP-II 

IP1=r+1 
PHI(1I,J,K)=A(1)*PHI(IP1,J,K)+C(L) 


EO2 CONT INGE 
OO COM INUE 


JSTM1=JST-1 
eee 
C(JSTM1)=0. 

DO 200 K=KST,KSP 

Pemzoumm= rom) TSP 

DO 201 J=JST,JSP 

=i gia 

ast kK 

=AE(I,J,K ee ie) har: 
tAF(I,J,K)*PHI(I,J,K+t1 as APHT(1,3,K-1)+SU(I,J,&) 
TERM=1./(AP(I,J,K)-B(J)*A(J-1) 

eee iy) teet 

C(I )=(C(3)+B(3)*C(I-1))*TERM 


~~ 





201 CONTINUE 


PHI(I,JSP,K)=C(JSP) 

JSTA=JST+1 

DO 6202 dw —Jcomn JSP 

lenses d5 

JP1=J+1 
PHI(I,J,K)=A(J)*PHI(I,JP1,K)+C(J) 


202 CONTINUE 
200 CONTINUE 


KS2uLAKSI =1 
Ae 
Ciel) =o. 


aq aang 


C 


DO 300 I=IST,ISP 
DO 300 J=JST,JSP 
DO 301 K=KST,KSP 
A(K)=AF aK) 
B(K)=AB(I,J,K | 
C(K)=AE(I,J,K sa il a 
& +AN(I,J3,K)*PHI(1I,J+1,K _ *PH 
TERM=1./(AP(1I,J,K)-B(K) *A(K-1) 
Er: 
C(K)=(C(K)+B(K) *C(K-1) ) *TERM 
301 CONTINUE 
PHI(1,J,KSP)=C(KSP) 
KSTA=KST+1 
DO 302 KK=KSTA,KSP 
K=KST+KSP-KK 
KP1=K+1 | 
PHI(I,J,K)=A(K)*PHI(1I,J,KP1)+C(K) 
302 CONTINUE 
300 CONTINUE 


GO TO 700 
KRAKAKAKAKAKKKAARA 


IF(IST.LT.0) GO TO 700 


KRAKRKKKKRRKRKAKRAARKAARRKRKKRARKK 











ISP1=ISP+1 
Be =0, 
(Isr 0. 
DO 400 J=JST,JSP 
DO 400 K=KST,KSP 
DO 401 II=IST,ISP 
I=ISP+IST-I1 
IP1=I+1 
A(L)=AE(I,J,K 
B(I)=AW(I,J,K 
C(I)=AN(I,J,K)*PHI (I +AS 
& PHI a J,K)*PH 
TERM=1./(AP(1,3,K)-A(L)*B(I+1) 
B te eek 
C(IT)=(C(L)+A(1)*C(I+1) )*TERM 
CONTINUE 
PH Foie C( ism 
ISTP1=IST+1 
DO 402 I=ISTP1,ISP 
PHI(I,J,K)=B(L)*PHI(I-1,3,K)+C(I) 
402 CONTINUE 
400 CONTINUE 











J, K) Piao 


7 A 
oO, K-1 Se 


401 





JSP1=JSP+1 
Steer =0. 
C(JSP1)=0. 
DO 500 K=KST,KSP 
DO 500 I=IST,ISP 
DO 501 JJ=JST,JSP 
J=JISP+IST-Jd 
JP1=J+1 
ee ae 
AG Je) 
=AE(I,J,K SPHD( T+], J .R)gAH(T 7K) ABE 
& PHI (tJ K+1)4AB(1 J, K)*PHI(I,5,K-1)+SU(I 
TERM=1./(AP(1,J,K)-A(J)*B(J+1)) 
B 5)=6 (7) “TEEN 
C(g)=(C(J3)+A(3)*C(S+1) )*TERM 
501 CONTINUE 
Polit) oST K)=c(gsn) 
ISTP1=JST+1 
DO 502 J=JSTP1,JSP 
PHI(I,J3,K)=B(J)*PHI(I,J-1,K)+C(J) 
502 CONTINUE 


194 


ol 
ele 


i 


IK) 
1,K)+SU(I,J,K) 


1-1.) 
(1,3,K 


ae 
,J,K 





500 CONTINUE 


hoe l=KoPtl 
a sae 
eyrort =O. 

DOmouw I=1ST,I1SP 
DO 600 J=JST,JSP 
DO 601 KK=KST,KSP 
K=KSP+tKST-KK 








KP1L=K+1 

A(K)=AF(1I,J,K 

B(K)=AB(I,J,K 

C(K)=AE(1I,J,K Sah) 7 1K) *PT (1-2. 3,K)+AN(T,I,K)* 
& Moyer Phy at J,K)*4PHI(1,J-1,K)+SU(1I,J,K 

TERM=1./(AP(I,J3,K)-A(K)*B(K+1) ) 


eee) TEEN 
C(K)=(C(K)+A(K)*C(K+1) )* TERM 
601 CONTINUE 
peer 3, KST)=C(KST) 
KSTP1=KST+1 
DO 602 K=KSTP1,KSP 
PHI(L,J,K)=B(K)*PHI(I,J,K-1)+C(K) 
602 CONTINUE 
600 CONTINUE 
700 CONTINUE 
RETURN 
END 
* KREKKKREKRKRKRKRKRRKREKKRKR RR KKKERE 
peeCmreten we. 
i 
COMMON/BL80/BTURB , ABTURB, CNT, DX2 ,DY2,DZ2, VISMAX 
& 'SMPP(22,18,18) ,RI(22,18,18 
COMMON/CONS/XTIME,NT,UO,PRT,TA, 
& NIMAXO,RA, CPAIR, SIGMA 


DADE BaURS, ABIURB,CNT/1.,2.,.08/ 
DAGA CONDE KI) .03565,2/ 


DAG Seve NT/O.,0/ 

DATA RA,CPAIR,UO,PRT,TA,NTMAXO,SIGMA/ 
& ovmtameees,1.,1.9555.85,0,1.712E=9/ 

END 


aA 


os 


6. 


nO: 


ze 
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